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PREFACE 


This report describes a computer program called The DLG 
Processor - A Data Management Executive for The Engineering 
Design Integration (EDIN) System. The program was written 
in support of NASA Contract NAS9-13584, "Extended Optimal 
Design Integration (Extended ODIN) Computer Program." The 
study was conducted during the period from June 1973 through 
December 1974, with funds provided by the National Aeronautics 
and Space Administration, Johnson Spacecraft Center, Engineer- 
ing Analysis Division. Mr. Robert W. Abel was the technical 
monitor. The contract was monitored by the Launch Analysis 
Section. The report is presented in two volumes: 

VOLUME I - Engineering Description and Utilization 
Manual 

VOLUME II - Programmers' Manual 

The report specifically describes a user-developed data processor 
which is integrated with the Univac 1100 executive system and 
is interfaced to the EDIN data base. 
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THE DLG PROCESSOR 


A DATA MANAGEMENT EXECUTIVE FOR 

THE ENGINEERING DESIGN INTEGRATION (EDIN) SYSTEM 

VOLUME II - PROGRAMMERS* MANUAL 

By: C. R. Glatt and W. N. Colquitt 

Aerophysics Research Corporation 

SUMMARY 


The DLG Processor is a Univac 1100 series Exec 8 computer pro- 
gram designed to read, modify, manipulate and replace symbolic 
images. DLG is controlled by a set of user supplied directives 
which augment the data being processed. A number of data manage- 
ment functions can be performed that include the construction 
of input data files, data base maintenance and control of pro- 
gram sequencing. Functions are illustrated in figure 1. 

The primary purpose of the DLG Processor is to link one applica- 
tion program to another through a common information source. 

The procedure is to read output data from one applications pro 
gram, insert a selected subset of the data into a structured 
data base and then selectively extract this and other stored 
data and place it into the input stream for other applications 
programs . 

A considerable capability for manipulating data files is avail 
able with DLG which is not available from any other processor. 

DLG currently has about 20 directives implemented but the basic 
commands are ’CREATE 1 for the construction of a new data base 
element, ’PROCESS’ directive which is used' to process special 
output files from an application program, the ’ADD’ command for 
generating or modifying data m the data base and the replace 
ment function which uses a retrieval technique that substitutes 
delimited data base names for the current values in the data 
base. Many other useful data manipulation directives are avail- 
able to the user. Arithmetic expressions are available as part 
of the language. 

The overall design of the computer program has allowed its 
integration into the Exec 8 environment in an extremely sophisti 
cated manner. The program loads in less than 20,000 words and 
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uses dynamic core allocation to minimize the impact of using 
large data bases. It uses double blocked buffering to read and. 
write data and manipulates character strings in an extremely 
efficient manner, thereby reducing the preprocessing overhead 
to a minimum. It effectively allows looping in control streams, 
thereby offering a capability not previously available on this 
standard Exec 8 system. Finally, it can be used just as effect- 
ively in the demand as in the batch mode of operation. 

INTRODUCTION 


The EDIN system provides a balance of data management techniques 
which consider the inherent capabilities of the computer opera- 
ting system, past efforts in the storage and retrieval of 
stratified data and the recent development of some flexible 
paging techniques for the transfer of information between the. 
computer core and the mass storage of the computer. The Univac 
Exec 8 system provides the resources for the storage of large 
complex data files, for the storage and retrieval of the files 
and for the cataloguing protection and backup of the files. • 

The executive system has several processors with instruction 
sets for manipulating the data retained in mass storage. A 
limitation on the operating system capabilities arises in access- 
ing the subfile level of information in the system files once 
the file is addressed. 

The EDIN data management system is designed to subdivide the 
files in a manner that will allow the data which is retained in 
mass storage to be accessed at any level from the single para- 
meter level to a large matrix of data. Rather than constructing 
an extensive single computer program that attempts to be every- 
thing to everyone, the EDIN data management system provides a 
three-level data management capability. This approach permits 
the individual designer using the system to make his own decisions 
with regard to the storage method and techniques. It also per- 
mits the flexibility of using existing data sources not specifi- 
cally created for EDIN. 

The three levels of the- EDIN data management system are built 
upon one another as illustrated in figure 2. The lowest level 
deals with the interface between the data in mass storage and 
the computer operating system. The file level of the data manage- 
ment system is provided by the Exec 8 software and consists of 
the file utility' processor FURPUR, the file administration 
processor SECURE and other system level processors. The system 
processors are accessed using Exec 8 control statements. There- 
fore, file level software may be used directly by the designer 
for transmitting large structured blocks of data or the files 
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themselves to be accessed by the programmer who seeks economy 
above all else* The file level constitutes the foundation. for 
all higher level data management components*. 

The second level of the EDIN data management system provides the 
mechanism whereby the files can be organized into. blocks of 
data called pages. Pages of information can be organized in a 
number of ways and names can be given to each page. A pointer . 
system or directory is maintained by a Fortran callable software 
package, called DMAN , a subroutine utility package maintained 
in the EDIN library. 

The third and highest level of the data management system is 
provided to make the system more usable to the designer who may 
not be a programmer. The capability is provided in the DLG 
processor which is designed to maintain a data base of stratified 
information, the stratified data can be selectively accessed 
and merged with the input stream of the EDIN technology programs. 
This level also provides the interactive language structure 
which allows the designer to sit at a remote terminal and inter- 
act with the data base directly as he develops a design. The . 
DLG processor also contains routines for processing the output 
from the technology programs for the storage of design informa- . 
tion in the data base. 

Although the user may access the data base through any of the 
three levels, it is the lowest level maintained by the Exec 8 
system which actually stores and retrieves the data. Exec 8 
handles all of the underlying data management functions including 
file assignments, file directories and maintenance and security 
procedures as well as the data block transfer to and from mass 
storage. The Exec 8 system is discussed in reference 1, and a 
thorough treatment of the first level data management is provided 
by Univac in the appropriate User Documentation. This document 
deals primarily with the third level of the EDIN data management 
system (i.e. the DLG Processor). 

However, the second level is a general software package which can 
be used in any program and is specifically applied to the DLG 
program for accessing the data base pages in which stratified 
design data is stored. Therefore, some discussion of DMAN is pre- 
sented here. 
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PROGRAM STRUCTURE 


The DLG Processor consists of a main driver routine (DIALEK) 
which controls the initialization and the selection of the proc- 
essor functions illustrated in figure 2. The three major 
functions are data base interrogation (INMOD) , data management 
(RSPOND) and data storage (NLADD) . The functions are defined 
by a directive language which is read and interpreted by the 
program. After each directive is processed, control is returned 
to DIALEK and another directive is read. Processing is continu- 
ed until another control statement is encountered. 


Concepts and Definitions 


The following concepts and definitions which may be new to the 
reader will be helpful in understanding this document: 


Processor 


Data Base 


An absolute program element which is execu- 
ted with a special Exec 8 processor control 
statement: 

@name eltl,elt2 

and which is interfaced with the elements 
named on the processor control statements. 

File of information which is subdivided into 
named pages of data accessible by the DLG 
processor. Each page is further subdivided 
into named parameters and arrays. 


Technology Module An independent computer program which will. 
(Application receive or generate data base information. 

Program) 


Interrogation The process of retrieving information from 

the data base. The disposition of the 
retrieved data is dependent upon the direc- 
tive employed. 


Directive A language element used to specify a DLG 

(Also Command) Processor's action or function. 


Data Management A class of DLG functions which control and 

manipulate data base information. These 
functions include the creation of data base 
pages, the adding and defining information 
in the data base, printing and many others. 




FIGURE 3 PROGRAM STRUCTURE. 
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Data Storage 

Hun Stream 

Partial Run 
Stream 


A special class of data management functions 
which are designed specifically to store data 
generated by a technology module. 

A sequence of data images which constitute 
a computer run. 

A portion of a run stream which can be merged 
at any point in the run stream through an 
@ADD control statement. 


File Designations 


Unit 5 
Unit 6 
Unit 14 
Unit 25 


The System Card Reader. 

The System Printer. 

Temporary Data File for Incoming Data Base Data. 

Internal Logical Unit usually Attached to the EDIN 
Design Data Base. 


Processor Specifications 


Control Statement . - 

@DLG . DLG, options lfn.eltl,lfn.elt2 

Ifn.eltl Source Input {See I Option) 

lfn.elt2 Source Output. 

Option Specifications . - 

I Source input will follow the processor card. 

Source output will be placed in eltl. . 

L Source input data will be listed. 

0 Source output data will be listed. 

D Card cracking information will be listed. 

E Solicitation and result of directives will be printed. 

S List interrupt mode will be invoked. 
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M New data base files will be generated with this 
execution* 

B Build option will be invoked. This option specifies 
that all data directives of the form: 

* name name^ value 

or 

$name name = value 

This will permit the addition of data to the data base 
regardless of the directive name. Otherwise, only 
those data base variable names, which were previously 
defined in the data base, will be updated unless the 
data directive name is ADD or DEFINE. 

The B option may not be invoked via the "ON" command. 
If desired, it must be present on the processor call 
card. 


Syntax Definition . 


name Must be six (6) or less alphanumeric characters 

and begin with an alphabetical character. 


1 (quote 
or 

prime) 


The DLG delimiter. Strings that occur between 
pairs of delimiters will be processed by DLG. 
Strings external to primes will be passed "as is" 
into the output element. 


value 

if j 
elt 
lfn 
text 

C ] 


The underline on a command indicates an optional 
character string which may be used as a directive. 

Indicates a data base value in real, integer or 
hollerith format. 

Indicates integer constants used in the directives 
Exec 8 file element name in program file format. 
Exec 8 logical file name in system data format. 
Textual information. 

Indicates optional items on the line. 
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Summary of DLG Directives. - The DLG directives are summarized 
below. Underlines are optional character strings. All commands 
are excluded data base names. 

‘name 1 Replace name with information from the data base. 

*ADD Replace specified information in the data base. 

* CHANGE Change values in common IDLOG. 

'COMMENT User description with null effect, 
or " . 

9 

m 

* CREATE Create a new data oase. 

'CSF or . Submit executive control statement. 

•ER 

'DBLIST Print the names of all random access data bases 
on the data base file. 

'DEFINE Place description in data base directory. 

1 FORM AT Format free data base information in place. 

' INS ERT Insert binary SDF data in place. 

'ON Mode activation. 

’OFF Mode suppression. 

'PR INT Print data base information. 

'USE Specify a circular data base search. 

1 UP DATE Update a specified data base. 

Descriptions of Control Directives . - 

' ADD name ' - Specifies that information will be added to data 
base. 

'ADD name=value’ 

'ADD name=name' 

'ADD name=value, value - ' 

'ADD name= name , name , ' 

'ADD name=name op name, name op value, 1 
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+ 


Add 

Subtract 
where op = / Divide 

* Multiply 

** Exponentiation 

* CHANGE number=value 1 - Using the integer number ’number' as an 
index into the master common block, IDILOG, the current value 
is replaced by 'value.' 

'COMMENT 1 - This. is a null card and is discarded by DLG. 

' CREATE name, DIRLEN=number , LENDES=number ,LTOTAL=number ' - The data 
of name 'name* is brought into existence on the data base file. 
Optional parameters are DIRLEN - the directory length (This 
should be a prime number. ) . 

LENDES - Length in computer words of the description. 


LTOTAL - Total size, in computer words, reserved for the 
data base. 

' CHANGE * - 

Example 'CHANGE 27=3' 

Location 27 of the common block IDILOG will have its value 
replaced by an integer 3. 

' COMMENT * - A null card. The delimited field is removed from 
the card. If the resulting card is BLANK, the card will be re- 
moved from the run stream. 

1 CSF 0 Control Statement* - Specifies that an execution control 
statement will be processed using the standard CSF$ package. The 
following control statements may be used: 


0ADD 

0CKPT 

0RSPAR 

0ASG 

@FREE 

@RSTRT 

@BRKPT 

0LOG 

0 START 

0CAT 

0MODE 

0SYM 

0CKPAR 

@QUAL 

0USE 
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Example: 


* CSF @USE 25, DBASE' 

1 CSF @ADD DUSEFIL. DLOG T 

' CSF 0QUAL B' . . 

' DEFINE name=value , text ' - Stores a textual description with 
the name in the' data base directory. If the name is a new 
directory entry, the value is the number of data base entries 
allotted. Existing data is unaffected and new data is not added 

'DEFINE A, LETTER 1' - Stores the description, LETTER 1, 

with the" name A. 

'DEFINE B=10, BARRAY' - Stores the description, BARRAY, 

with the variable name B and allots 
10 data base entries for B. 

* FORMAT name=value/value , (Fortran compatible format statement) ' 
Extracts freely stored data from the data base and places into 
the output elements in accordance with the given format. 

'FORMAT A=6/3, (IX, 3F15, 3) ' 

The six items of A are output into the named element, 3 
on. a line through the (1X,3F15.3) format. 

1 INSERT name=value/value ' - Specifies that binary coded informa- 
tion the SDF file name will be placed in the source output 
element in 14A6 format. 

'INSERT A 1 - Entire file of data in A will be transferred 
to source output element. 

'INSERT B=5-13' - Insert data from B from records 5 through 
23 . 

'INSERT C=5*EOF' - Insert records from file C records 5 
to the end-of-file. 

Other Examples - 'INSERT A,B=5-23, C=5*EOF' 

1 name 1 - Specifies a simple replacement of named information 
with data base parameters or arrays. 

'REAL' Real parameter or array. 

'INTEG' Integer parameter or array. 
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' HOLITH* Hollerith parameter or array. 

* LOGICL* Logical parameter or array. 

'ARRAY (j)' Real or integer element of an array, j must 

be a constant greater than 1. A value of 

j=l will cause the transfer of all of j . 

'ON name, name 1 - Mode activation directive. 


1 OFF name , name * 


P or PAGDMP 
0 or OUTDMP 
N or INDUMP 
C or CONTINUE 
L or LIST 
S or SPLIT 
E or EDIT. 


Mode suppression directive. 

Print card cracking information. 

List logical file 1 data. 

List source output element. 

Activate continuation card option. 

List source input information. 

Interrupt mode. 

Edit mode (demand response to printer) . 


' PRINT name* - Specifies 

'PRINT name=A, Z ' 
'PRINT name=n,m’ 
'PRINT name' 

'PRINT’ 


that data information will be printed. 

Print all information in name. 

Print entries n through m alphabetically 

Directory and first data base entry 
of named data base. 

Directory and first data base entry of 
current ’USE* assigned data bases. 


'USE'* - 


'USE A, B , C 1 - The data bases named will be circularly 
searched in the order given for variables used in replace- 
ments. All will be searched once before a NO FIND is de- 
clared. It should be noted that this command may cause 
very excessive SUP changes if not carefully used. 

'UPDATE name’ - Specifies that the named data base will be up- 
dated with the information which follows: 

'UPDATE A’ - Specifies that the data base A will be updated 
with the data which follows. - 
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Processor Interface 


The processor interface is a Univac 1100 series EX8 utility 
subroutine, IF, written in assembly language. IF is designed 
for use by the FORTRAN programmer in the construction of a 
processor. It allows the information on the processor call 
card to be made available to the user program. Two fields on 
the processor call card are available to the user. The first 
is the input field, and the second is the output field. The 
I option implies only the first field will be used. This 
field will be the output field. 


Usage. - The programmer is assume 


have 


Cl minimum working 


knowledge of Univac' s (R) EX8 operating system and the use of 
such system processors as ELT, FOR and FURPUR. There are three 
entry points into the subroutine: SIREAD for reading from the 

SI field, PGMOUT for writing to the SO field, and DONE for 
closing the file. The calling sequences and the associated 
arguments are as follows : 


CALL SIREAD ( $err , $eof , IMAGE , ' word 1 ) 

$err Statement number to be transferred to in 

case of error. 


$eof 


Statement number' to be transferred to when 
an end-of-file is reached. 


IMAGE 


'word 1 


SIREAD 


An array containing the image you want 
written out. Normally, this is 14 words 
long . 

This word is used to delete words from the 
right, back to the left to make the image 
as short as possible in order to conserve 
disk space. For card images, this would 
be a word of blanks : for binary informa- 

tion in internal machine format, zero would 
be best. 

Stands for source input read . 


CALL PGMOUT ($ err , $eof , IMAGE ,' word ' ) 

$err Statement number of location to be trans- 

ferred to in the event of an I/O error. 
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$eof 

IMAGE 


’word 1 


PGMOUT 


A dummy argument. . 

The array containing the image of words 
to be written out (normally dimensioned 
14) . 

As the image is compressed on disk with 
the trailing null words dropped, this word 
is used to fill out the image so that when 
it is returned to the user, it is the full 
14 words long. 

Stands for program out put . 


CALL DONE ($err) 

This call must be executed prior to con- 
clusion of the program. It will drain any 
uncompleted buffers, close and release to 
their original status any attached files. 
If this entry is not called prior to pro- 
gram termination, the created element of 
SO field will not be properly created. 

Restrictions . - There are three important limitations on the 
use of IF: 


1. There can be only 2 fields on the processor card. 

2. SI READ must be called prior to any reads from the 
standard system input device, the card reader (unit 
5 in FORTRAN); otherwise, read errors will occur. 

3. Once the entry DONE is called, none of the entries 
into IF may again be referenced (the program will 
error off if this rule is violated) . 


. DMAN Software Package 

The storage and retrieval of the multitude of data pages which 
constitute a design data base are managed by DMAN. When a data 
page is stored, it is given a page name. DMAN keeps a directory 
of all the names of data pages on a file and the disk addresses 
where those pages may be found on the file. This makes it possible 
for a symbolic name rather than a numerical index to be used to 
access a data page during its residence on the file. 
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DMAN provides all of the basic data management functions to handle 
variable length data pages while allowing them to be referenced 
by name. A data page may be stored on any file which has been 
established for data base .use. All or portions of a data page 
contents may be retrieved. Modification of the contents of a 
data page is permitted, including that which requires increasing 
or decreasing the size of a page. Finally, removal of a data 
page from a file may be accomplished. 

DMAN Usage . - The DMAN data management system is a Fortran call- 
able software package which has been written for access and re- 
trieval of data from the EDIN data base. The package consists 
of the following subroutines which must be included in the call- 
ing program: 


DMAN 

Basic Read/Write Controller. 

NXTAD 

Extend File Routine. 

UPACK7 

Character Unpack Routine. 

RITBF 

Write Routine. 

PACK7 

Character Packing Routine. 

REDBF 

Read Routine. 

NWBLK 

Create a New Block for Data. 


The use requires the following declarations in the user program: 

COMMON/UN ITS/I AREA ( 273) 

DATA IAREA/0,n, 271*0/ 

INTEGER IT(5) ,IBUF(256) 

where n is the file number where the data base is stored. The 
usage is as follows: 


CALL DMAN ( IOP , IT, N , IDATA , IBUF, IAREA ( 1) , IAREA ( 2 ) ) 

IOP The read/write option. A further discussion of 

these options is given later. 

IT A five word array containing the data title. A 

further discussion of the titles is given below. 

N This variable contains the number of words in 

IDATA to be read or written. When reading, and 
the requested list cannot be satisfied, this 
value is reset to the number of words actually 
read, so this item must always be a variable 
when reading data. 
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IDATA 


An integer or real array containing the data 
to be stored in the data base. There is no 
restriction on the length of this array. 

IBUF A 256 word buffer area for use by DMAN. 


IAREA This is a unit dependent area needed by DMAN. 

It must be dimensioned 273. One IAREA is re- 
quired for each unit using DMAN. The double 
appearance of. this array in the calling sequence 
is required for interal addressing purposes. 

This area must be protected, such as in COMMON, 
and must be reserved for use by DMAN while this 
file is being used. 

A Discussion of IT. - There are two significant portions to the 
five word array IT. The first three words ■of. the title are 
user supplied hollerith words which represent the name of the 
data item which is to be accessed or stored in the data base. 

If this is the first access of this data . in the data base, the 
fourth word must be set to zero. This zeroing of the fourth 
title word will also return access to the beginning of the data 
set stored under the title given in the first three words. 

The fourth and fifth words of the title are reserved for use 
by DMAN . If the fourth word is zero, a search is made of index 
arrays to find the address of the desired data set. This 
address is then inserted into these two words. Each time some 
activity occurs using this title, the address stored in these 
two words is updated so that this address always refers to the 
next word after the last word accessed. This eliminates the 
need to search the index arrays- for each access of the data. 

A Discussion of IOP. - IOP controls the type of reading or 
writing done by DMAN. The I/O options are: 

IOP = 10 - write a matrix. The complete data set to 
be stored under the title IT is present in IDATA. 

= -10 - read a matrix. 

= 20 - write a single fixed length record. 

= -20 read a single fixed length record. 

s 21 - write a single variable length record. Us- 
ing this type of write option, an end-of-record' 
mark is inserted after the end of the record. Any 
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variable length record read will not pass this mark 
when reading. If the read is a fixed length record 
read, however, this mark will be ignored. 

= “21 “ read a variable length record. In this 
case, N is the number. of words requested. The read 
will continue until N words have been read, and end- 
of-record mark is found, or the data set is exhausted, 
whichever comes first. The value of N will be set 
to the number of words actually returned. 

= 30 - extend a data set with a fixed length record. 
The data in IDATA is to be appended to the existing 
data set stored under the title in IT. 

= 31 - extend a data set with a variable length 
record. 

NOTE: If a read attempt is made, which will extend 

the read past the end of the stored data set, or 
the data set requested has not been stored, the 
following values will be returned by DMAN: 

N=0 and IDATA { 1) =3LE0D. 

IOP = 6HPURGE - this option will cause the title given 
in IT to be purged from the index array. 

IOP — 6HCLEAR - this action will cause the buffer IBUF 

to be cleared. That is output to disc if necessary. 
This action is necessary before releasing the buffer 
to other uses, or existing a subroutine or overlay 
under conditions which' will not protect the buffer. 

IOP = 6HCL0SE - this action conditions the data base 
so that the entire contents of the data base do 
in fact reside on disc. It is necessary to execute 
this statement on any catalogued data base to in- 
sure that its entire contents are on disc. Normal 
activity may proceed after the function is called, 
and this function may be called as many times as 
desired. 
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Technology Module Interface Package 

The communication of information from a technology program to 
the EDIN data base generally requires modification of the 
applications program. This modification is usually trivial and 
requires little programming knowledge to accomplish. ' The objec- 
tive of the modification is to create a special file of informa- 
tion which contains a format suitable for reading by the DLG 
processor. The information is placed on the special file by 
the technology program. The file is later integrated by the DLG 
for possible placement of the information into the EDIN data 
base.' 

A series of four routines for printing the common types of data 
in a format readable by DLG are available. They may be called 
at any point in the calculation sequence for generating EDIN 
output. The format simulates the control directives format used 
in the DLG processor. 

ADDREL - For printing real variables and arrays. 

ADDINT - For printing integer variables and arrays. 

ADDHOL - For printing Hollerith variables . and arrays. 

ADDLOG - For printing Logical variables and arrays. 

The output is similar to the format of NAMELIST for one variable 
name only with any number of associated values. Each subroutine 
has the same calling sequence characterized as follows: 

CALL ADDREL (LU, NAME, NUM, VALUE) 

LU - Logical unit or special output file. 

NAME - Desired name chosen by the analyst/programmer. 

It may be a stored name set by a. Fortran data 
statement or can be set in the calling sequence 
as nHname . 

NUM - Number of values in the array. For a single 
variable NUM=1. 

VALUE - Internal variable or array name (starting 
location) . 

The subroutines for the other variable types have the same calling 
sequence. The primary difference among them is the format used 
for writing the variables and the special output file. Each 
output is a DLG control directive format. The name associated 
with the directive is set by a data statement in the individual 
subroutines. The data statement may be set at the time the 


19 



technology program is modified. Usually it is desirable to use 

a . name which is reminiscent of the application program name. 

The selected name -may be precisely the same as the acronym used 
to execute the application program in EDIN. The reason for 
such a choice is that the directive name is stored in the EDIN 
data base. A print of the data base prints the last directive 
which updated each variable in the data base. 

For most technology programs, the use of the software described 
above is adequate. However, certain programs generate data 
base information in a Fortran "DO LOOP." In these instances, 
the package (by itself) can not satisfy the EDIN requirement 
of separate names for different data elements and arrays. 

The most convenient way to make this program and others of 
this type compatible with EDIN is to provide some name-genera- 
ting capability with the applications program. Function sub- 
routines which provide this capability can be called as 
illustrated below: 

NAMGEN (NAME, K, J) 

NAME = The desired root name. 

I = Concatenated number occupying the first one or 
two BCD character positions beyond the root 
name . 

J = Concatenated number occupying the second one 

or two BCD character positions beyond the root 
name.' 

An example would be: 

NAM=N AMGEN ( 4 HNAME ,1,2) 

In the above illustration, the name NAME would be extended 
by the BCD characters 1 and 2 concatenated to it and stored 
in NAM. 

NAM=6HNAME12 

A maximum of 6 characters may be generated. This limit is 
imposed by the word size limit for EDIN data base names. 

Usually the NAMGEN function is used in conjunction with the 
NAMELIST simulator described above in the following manner: 
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CALL ADDREL (LU,NAMGEN (NAME, I, J) ,NUM, VALUE) 

In the illustration, the name is generated within the 
calling sequence of the subroutine which prints the simu- 
lated namelist for the generated name. 

Subroutine Descriptions 

Subroutine ADDER . - ADDER is a Fortran subroutine for control- 
ling the placement of names and values into the data base. Its 
purpose is to process the ADD commands and place the specified 
information into the data base. If the information going into 
the data base is new, a new entry will be created for the data. 

If the entry already exists, the information will replace what 
is already there. The subroutine is designed to handle not 
only real, integer, logical, hollerith variables, but arrays 
as well. It will also perform simple arithmetic operations upon 
a given element before entering it into the data base. 

Subroutine ADDQNE . - ADDONE is a Fortran subroutine for adding 
names and/or values to the data base. This is a standard stor- 
age routine for the design data base information. The subroutine 
has five calling arguments, I,B,S,F, and L. I is the name of 
the data base entry. B is the value of the data base variable • 
being installed. S is the element number. F defines whether 
this is the first element. L is the logical variable defining 
whether .or not it is the last variable. 

Subroutine ANLSIS. - A small subroutine used just as DLG termina- 
tes normally to process the "A" option. It produces a 4-line 
report that includes a count of 10 operations and a collision 
record for RANDAC. 

Subroutine .BCDDB. - BCDDB is a Fortran subroutine for transfer- 
ring one element of information from the BCD array to the data 
base. The BCD array is a temporary array which is loaded with . 
information to be transferred to the data base from some other 
subroutine. . 

Subroutine BCDDEC . - BCDDEC is a Fortran subroutine which con- 
verts BCD character strings to equivalent decimals word (integer 
or real). The subroutine has three calling arguments BCD, *NCHR 
and DEC. BCD is a string of characters to be converted. NCHR 
is the number of characters, one per word, left justified and 
blank filled. DEC is the resultant real or integer variable. 

Subroutine BCDINT . - BCDINT is a Fortran subroutine which con- 
verts BCD characters- 1 to integer equivalents. The subroutine 
has three calling arguments, BCD, NCHR and INT. BCD string 
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contains NCHR characters, one character per word, left justi- 
fied and blank filled. INT is the resultant integer variable. 

Su broutine BCDVAL . - BCDVAL loads the decimal equivalent of one 
or more BCD words into the variable VAL. It also loads the BCD 
array with one BCD character for each input BCD character and 
determines the type of resulting variable in VAL (real, integer, 
hollerith or logical'. 

Subroutine BILDOP . - Subroutine BILDOP is a Fortran routine that 
determines whether previously defined information is to be added 
to the data base or ignored. The criteria is the existance and/ 
or the data base value of BUILD. If the word BUILD does not 
exist in the data base, all incoming information will be added. 
The same is true if BUILD exists in the data base and has a value 
of 1. However, if the variable exists and has a value of 0, no 
new variable will be added. 

Subroutine CCDUMP . - CCDUMP is a Fortran subroutine for print- 
ing of data base inf oi*mation. It processes the control direc- 
tive 'PRINT name'. The routine sorts the data base name 
alphabetically in groups of 100 and calls the routine DBWRT 
to actually print the information. It also prints the data base 
parameters for the data base being printed. 

Subroutine CDINIT . - This Fortran routine initializes the index, 
values of commands and their corresponding character string 
names for use by RSPOND. 

S ubroutine CHANGE . - This Fortran subroutine is used to modify 
the contents of any location in the IDILOG common block. It 
presents the value of the indexed location both before and after 
the change. 

Subrou t ine CHARS . - This highly efficient assembly language 
routine strips out charactei's from 6 to a word to 1 per word - . 
L.J.S.F. Also returned is the last valid character position. 

Subroutine CHRNUM . - CHRNUM is a Fortran subroutine which 
determines the integer equivalent of a single BCD digit. 

Subroutine CREATF . - CREATF is a subroutine for equivalencing 
external (system) file names to internal logical unit numbers. 

Two arguments which have significance are LU and LFN. LU is 
the internal logical unit number to be equivalence and LFN is 
the external logical name to be equivalent. CREATF uses the 
system routine ERTRAN to dynamically perform the USE assignment. 
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Subroutine CSF . - This subroutine passes the control image from 
the 'CSF’ directive to ERTRAN. In this manner any legal control 
card may be submitted to Exec 8 while DLG is in execution. 

Subroutine DBADD . - DBADD is a control routine for. processing 
information to be added to the data base. It is called for 
initially loading the data base and updating the data base with 
information from previously executed programs. It is called 
from INITIZ, NLADD and EXECUT . The single calling arguments 
specify the origin of the namelist like files to be read. 

Subroutine DBINIT . - DBINIT processes that portion of the CREATE 
control directive which specifies the five data base parameters 
DIRLEN, LTOTAL , REYLEN, LENDES and NWORD, if they exist on the 
CREATE control directive. The values are set into the correspond 
ing location of the DILOG common block. 

Subroutine DBLOAD . - DBLOAD is a Fortran subroutine for writing 
out the data base which is currently in core and reading in 
the data base which has been requested in the calling sequence. 

Subroutine DBWRT . - DBWRT is a subroutine which collects all 
of the names of data base variables in groups of 100 and sorts 
them alphabetically and prints the names and values in groups. 

Su broutine DECBCD . - DECBCD is a Fortran subroutine that con- 
verts a real decimal value to a specified field width of BCD 
characters, left justified and blank filled. The routine in- 
sures maximum significance within the specified field width and 
uses either E or F format to accomplish this end. A maximum of 
two BCD words is used to characterize the decimal number. 

S ubroutine DECIDE . - DECIDE is a Fortran subroutine that builds 
an array of BCD words, one character per word from a packed BCD 
array. It determines the type of the input BCD array and number 
of characters in that word. 

S ubroutine DELETE . - DELETE is a Fortran subroutine that deletes 
an. entry from the data base directory. It does not however 
delete the space which has been used in the data base proper. 

Subroutine DIALER . - DIALER is the main routine for controlling 
the DIALER Executive System. It initializes all data 
and directory through calls to the appropriate routine. 

It processes the namelist output from other programs by 
a call to NLADD. It then begins reading control directives 
and processing them through appropriate calls to the actual 
processing subroutines. All control directives are read 
and processed from the program DIALER. 
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Subroutine DISECT , - It is a Fortran subroutine which reads and 
cracks BCD card input and places the information into the IPAG 
array for future processing. Once an apostrophe is encountered, 
processing begins until a second apostrophe is encountered. 

Within the apostrophe delimiters, the card is broken down by 
DILOGS which are delimited by commas, an operation, which is 
delimited by the normal operators {plus, minus, multiply, divide 
or exponentiation) the pattern of storage of the information 
read is picked up by the processing routine which interprets 
the commands and directives specified on the card input. 

. Main Program DLGDVR . - This is the main program and it is 
essentially a dummy so that DIALER can be a subroutine and have 
more than one entry point. 

Subroutine DMAN . - This Fortran subroutine is the random access 
package to mass storage. The basic technique is through the 
use of DEFINE FILE statements in conjunction with the associated 
random read and write operations. DMAN uses the utilities NWBLK, 
NXTAD, PACK7, REDBF, RITBF and UNPACK7 . 

S ubroutine DYNCOR . - This very powerful assembly language is 
used to contract/ expand Fortran array sizes through LCORE$/MCORE$ 
executive requests. The addressing of these arrays must be done 
via statement functions but otherwise use is quite general. 

Total program size is limited to 262K and any one array to 64K. 
The use of DYNCOR allows a Fortran program to execute in the 
absolute minimum size needed to handle the current amount of 
data - thereby significantly lowering system impact. 

Subroutine ENDFL . - ENDFL is a Fortran subroutine which places 
a Fortran end-of-file on normal sequential files. However, it 
places the character string *EOF into the current record of ran- 
dom access files. 

Subroutine EOFTST. - EOFTST is a Fortran subroutine which tests 
the current card image to determine if the first four characters 
contain the character string *EOF. If so, the logical variable 
MYEOF is set to true. 

Subroutine FLDATA . - The entry point INTFLD of the assembly 
language routine FLDATA is used to convert an internal binary 
integer into a 12 character FLDATA representation. 

Subroutine FORMAT . - This code is, used to process data from the 
data base through a Fortran format and then passes it into the 
output element according to the format being used. 
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Subroutine GET . - GET is a utility routine written in assembly . 
language which can be called as a subroutine or function. It 
has three arguments, S, I and T. The function of the subroutine 
is to get the I symbol from the string S and place it left 
justified. 

Subroutine GETSUB . - Extracts from the data base the values of 
a variable and converts it to internal integer for use as a sub- 
script in an expression. 

Subroutine IDENT . - IDENT is a Fortran subroutine for processing 
the DEFINE command directive. The subroutine has the function 
of reserving space in the data base and inserting descriptive 
information with regard to the specified variable in the data 
base directory. If the name was not previously defined, by a 
DEFINE command or an ADD command, the name and description are 
entered into the data base and the number of entries specified 
are reserved in the data base. If the name previously existed 
in the directory, the action of this subroutine is simply to 
insert the description in the directory. 

Subroutine IF . - This interface routine, written in assembly 
language, provides the capability for DLG to be invoked as a 
processor rather than an ordinary program. This technique allows 
considerable use of Exec 8 in file handling and access. Images 
may be both passed and received to/from mass storage via the 
IF interface. 

Subroutine IGNORE . - The subroutine simply blanks out all of 
the characters associated with the comment directive on the 
input image. 

Subroutine INITDM . - This one time called Fortran routine 
initializes some of the values of common block /MS/. 

Subroutine INITIZ . - INITIZ is a subroutine for initializing 
the design data base for the control card data base. It processes 
the ’CREATE directive* by determining which data base is to be 
initialized. It then calls the subroutine DBINIT to process 
the remainder of the ‘CREATE directive' to determine deviations 
in the data base parameters such as the length and width of the 
directory, etc. INITIZ then initializes the directory and data 
base and calls the data base load routine. 

Subroutine INITL . - Subroutine INITL initializes the DILOG 
common area and some positions of the files that are used in 
DIALER. 


Subroutine INMOD . - INMOD processes the ’name' command. It 
performs the simple replacement function for data base variables 
and arrays and, if required, performs the arithmetic operations 
which are provided for in the language. 

Subroutine INSRT . - INSRT processes ’INSERT* command by attach-, 
ing the named system file and copying the specified BCD records 
from the file to the modified input stream for the next program 
to be executed. 

Subroutine INTBCD . - INTBCD converts an integer into two words 
of BCD characters for storage into the data base. 

Subroutine IOPT . - This three (3) line assembly subroutine re- 
turns the option word, in master-bit notation, both in the ■ 
calling argument and as its value, if referenced as a function. 

Subroutine IVCALC . - This subroutine loads the description 
arrays, which are stored in the data base directory. The 
description array consists of the data base location, the origin 
of the most recent update and the user's specified number of 
words of arbitrary descriptive information. 

Subroutine IVDESC . - This subroutine extracts the descriptive 
information from the data base directory and places it in the 
IDESC array. 

Subroutine LOCP . - LOCP is a Fortran function which determines 
the equivalent singly descripted array location corresponding 
to a three dimensional array location. 

Subroutine MOVER . - MOVER is a highly efficient assembly routine 
for transferring information from one place in core to another. 
The increment used in both arrays need not be equal, therefore, 
one word, with zero increment, can be used to fill another array 
Transfer method is via the BT instruction therefore DO-LOOPS 
are better if 5 or less words are to be moved. 

Subroutine NLADD . - NLADD processes the NMLIST file which was 
generated by the last program in the execution sequence. The 
Fortran namelist like format is assumed in the processing. 
Therefore, the delimiter, which is normally an apostrophe, is 
changed to a dollar sign and the record width is changed from 
card width (80 columns) to the normal namelist record width 
(132) . In addition, the start column for processing the data 
is changed from 1 to 2. This is because all namelist data 
starts in column 2 and column 1 sometimes contains carriage 
control information. 
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Subroutine NUMNIT . - NUMNIT initializes the numbered directory 
which correlates the BCD representation of the numbers 0 through 
9 , + r - and . to their integer representation 0 through 13. 

Subroutine ONROFF . - The Fortran code will turn on or turn off, 
through entry points ON and OFF, the effect of any of the allowed 
option bits (letters) on the processor call card except the "B" 
option. 

Subroutine QPINIT . - OPINIT initializes the operator directory 
*, /, **t $"and ' with the names equal, plus, minus, mltply, 
■divide, expon, dollar and noteql. The operators can be changed 
by changing their character representations in the data base. 

Subroutine OPTION . - This Fortran routine is used one time only 
to make .TRUE, those variables in common blank IDILOG that 
appeared upon the processor invoking card. The following table 
gives options and corresponding common locations: 


OPTION 
LETTER . 

LOCAL 

NAME 

IDILOG 

LOCATIOI 

A 

ANALY 

340 

B 

STORE 

292 

C 

CONTIN 

36 

D 

PGDUMP 

304 

E 

EDIT 

250 

I 

* 


L 

LISTI 

300 

M 

INIT 

311 

0 

LISTO 

301 

S 

SPLITR 

305 

T 

TRACE 

307 


DESCRIPTION 

Analysis print at end of execution. 

All new data stored in data base. 

End-of-card signifies end-of- 
directive. . 

Dump page array. 

Requests and responses printed. 
Source input will follow. 

Source input will be listed. 

Make data base file. 

Source output will be listed. 

First interrupt mode. 

Trace information printed. 


^Standard Processor Option. 


27 



Subroutine PAGDMP . - This routine prints the card cracking 
information from the IPAG-array which was loaded by the DISECT 
routine. Each entry in the IPAG-array consists of a start 
column for the operator, the operator character, a name and a 
subscript. If the entry is a number, both the name and the 
subscript locations are used to represent that number. Function 
page determines the equivalent single subscripted location in 
the page array corresponding to a three dimensional array call 
and transfers the information from the IPAG-array into the 
function name page. 

Function PAGE . - Integer function PAGE uses LOCP to return a 
value from the IPAG array. 

Subroutine PRINTF . - PRINTF copies a specified file to output. 

S ubroutine PRTT . - PRTT is used to process the DBLIST command 
in a manner similar to the FURPUR command @PRT,T. It returns 
the names of all the data bases residing on the file that are 
attached to logical unit number 25. 

Subroutine PUT . - PUT is an assembly language routine which can 
be called as a subroutine or a function. . The routine has three 
calling arguments, S, I and T. The function of the subroutine 
is to put the left most symbol of T into the Ith position of 
string S. 

Subroutine RANDAC . - RANDAC is a Fortran utility routine for 
locating information in the data base directory by name. There 
are four main entries to initialize the directory, to find 
information in the directory, to install information in the 
directory and to delete information from the directory. The 
directory information contains pointers to the actual data. 

Subroutine READER . - This subroutine is used to read binary 
information. The subroutine has three calling arguments, LU, 
INREC, and NW. The routine reads one record of width NW from 
file LU into the array INREC. 

Subroutine READCR . - READCR reads coded records. It has three 
calling arguments, LU, INREC and NW. READCR reads one record 
of NW words from file LU into the array INREC. 

Subroutine RPLACE . - RPLACE performs the simple and array re- 
placement function for delimited data base names by retrieving 
the information from the data base and placing the current data 
base values in the image array. In the case of simple replace- 
ment, the routine uses the column position between delimiters 
to format the data base information. In the case of array 
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replacement, column positions are not preserved. The replace- 
ment begins at the first delimiter and the array is placed in 
the image array three values per card separated by commas. The 
above format is suitable for namelist and other read routines. 

Subroutine RSPOND . - RSPOND performs the "switching function" 
of logic control by identifying the command, getting its numeric 
equivalent and using that value in a computed GOTO. It is 
basically a routine to decrease size of a demand program without 
adding any overhead noticeable by the terminal operator. 

Subroutine SCALE . - SCALE is a Fortran utility routine for 
processing simple arithmetic operations such as add, subtract, 
multiply and divide, which are specified by the data base 
language. 

Su broutine SHELL . - SHELL is a Fortran subroutine for sorting 
an independent array of names. SHELL has three calling arguments, 
IARRAY, KEY and N. SHELL sorts an independent array of size N 
into ascending order (algebraically leased first) and provides 
a key array which will allow the companion subroutine SHELLX 
to return dependent arrays in the original correspondence with 
the independent array. IARRAY is the name of the independent 
array (dimensioned at least N in the calling program) key is 
the name of the key array (dimensioned at least N in the calling 
program) and N as the. number of elements in both IARRAY and KEY. 

Subroutine STRMOV. - This subroutine has five calling arguments, 
OBCR, ICOLD, NUMCHR, NEWBCD and ICNEW. STRMOV is a Fortran sub- 
routine which uses the routines GET and PUT to move characters 
from one location to another. STRMOV moves NUMCHR characters 
from OLDBCD starting a column ICOLD to the array NEWBCD start- 
ing at column ICNEW. 

S ubroutine UPDATE . - UPDATE is a Fortran subroutine used for 
updating an existing data base at the start of a simulation. 

Subroutine USE . - USE is used when a no-find on a data base 
name occurs. Several data bases are to be searched in a 
sequential circular manner. The data base names to be used 
come from the USE card which is processed by subroutine USE. 

It should be cautioned that loading/unloading data bases is a 
very high overhead item and should be kept to 9 minimum. 

Subroutine VALIMG . - VALIMG is a Fortran subroutine for convert- 
ing a value of arbitrary type stored in core to BCD format and 
placing it at a specified positional relationship in the image 
array. 
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Subroutine WR1TBR . - This subroutine has three calling arguments, 
LU , INREC and NW. WRITBR writes on NW word record from the array 
INREC to the logical unit LU. The -Fortran write functions are 
used in the Define File Format. 

Subroutine WRITCR . - WRITCR has three calling arguments, LU , 

INREC and NW. The routine writes one NW word record from INREC 
to LU in binary coded format. 
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COMMON VARIABLES 


DILOG Local 

Locations Value Name Descriptions 

1 ’ e ' ALFE Integer word containing the 

character {E) , left justified and 
blank filled.. 

2 ' F' ALFF Integer word containing the 

character (F) , left justified and 
blank filled. 

3 - BCD (20) Integer array of BCD characters 

used for scratch purposes. 

23 - BCDLEN The number of characters in the 

BCD array. 

24 BCDNUM ( 10 ) Integer array containing powers 

of ten in sequential order from 
0 to 9. 

34 » • BLANK Integer word containing blank 

characters . 

35 1 f ' COMMA Integer word containing the 

character (,), left justified and 
blank filled. 

36 .TRUE. CONTIN Logical variable set by option 

flag ’C*. If true, an end-of- 
record will signify the end of 
a command. 


37 27 DBASE Logical unit of the file contain- 

ing the design data base. 

38 0 ICOPY A counter for the cumulation of 

input operations on the logical 
unit SI element. 
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DILOG 

Locations 

Value 

Local 

Name 

Descriptions 

39 

(' ) 

DELIM 

Integer word containing the DIALOG 
delimiter used in the simulation 
input data, usually .has a value 
of ( ' ) . 

40 

0 

ICONT 

A counter for cumulating the num- 
ber of output operations on the 
logical unit SO element. 

41 

* = > 

EQUAL 

Integer word containing the 
character { = ) , left justified and 
blank filled. 

42 

8 

MXCHAR 

The maximum number of characters 
which can be used for interpret- 
ing a number in BCD format cal- 
culated as: 

MXCHAR = NWORD*NCAR- (LENEXP-1) 

43 

2 

FIND 

An integer word defining the 
FIND entry in RANDAC. 

44 

None 

I CHAR (140) 

Integer array containing the in- 
put image one character per word, 
left justified and blank filled. 

184 

None 

IMAGE (36) 

Integer array containing- the in- 
put IMAGE. 

219 

1 

INITAL 

An integer word which defines 
the initialization entry in 
RANDAC. 

220 

8 0 

INRECL 

Maximum number of characters in 


the input record (IMAGE) . 
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DILOG 

Locations 

221 

223 

243 

244 

245 

246 

247 

248 

249 

250 


Value 

3 

None 

47 

1016 

1009 

1 

’ (’ 

8 

47 


Local 

NAME 

INSTAL 
IV (20) • 

LD 

LDB 

LFDB 

LK 

LPAREN 

LT 

NCD 


.FALSE. EDIT 


Descriptions 

An integer word which defines 
the installation entry in 
RANDAC. 

An integer array containing the 
data base location and descript- 
ive information for the current 
directory entry. 

Length of the directory in terms 
of number of entries. 

Length of the data base in terms 
of number of entries. 

Last free data base location. 

Length of the data base directory 
key in terms of number of words. 

Integer word containing the 
character ((), left justified and 
blank filled. 

Length of the array containing 
the data base location and descript 
ive information for the current 
data base entry in computer words. 

Maximum number of control direct- 
ives . 

Logical variable set by option 
character ' E 1 . If true, DLG re- 
quests and responses will be 
printed. 
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DILOG 

Locations 

251 

252 

253 

254 

255 

256 

257 

258 

260 


Value 

Local . 
Name 

Descriptions 

11 

MAXINT 

The number of characters repre- 
senting the maximum 'size integer 
for the computer on which this 
program is installed. 

0 

ICNML 

Integer word containing the record 
count from the NMLIST file. 

ri 

U 

ICNDB 

Integer word containing the num- 
ber of data base read and write 
requests. 

None 

MYEOF 

Logical variable, if true an end- 
of-file has been encountered. 

MYEOF is set when a system end- 
of-file or users end-of-file (*EOF) 
is encountered. 


NAME 

Integer word containing the current 
data base name. 

6 

NCAR 

The number of characters per com- 
puter word. 

12 

NCDBV 

The number of characters per data 
base variable. 

i _ i 

NEG 

Integer word containing the 
character (-) , left justified or 
blank filled. 

14 

NMLIST 

Logical unit number for potential 
data base information. Also used 
for reading inserted files. See 
insert command. 
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DILOG Local 

Locations Value Name Descriptions 

261 15 NNUM Maximum number of entries in the 

number directory. 

262 ^ NOPER Number of operations per dialog 

in the page array. 

263 2 NWORD Number of words per data base 

entry. 

264 14 NWREC Number of words per input record. 

265 1 . 1 POINT Integer word containing the 

character (.), left justified and 
blank filled. 

266 f + ! POS Integer word containing the 

character (+) , left justified and 
blank filled. 

267 1 )' RPAREN Integer word containing the 

character () ) , left justified and 
blank filled. 

268 None VALUE A real word containing the value 

of the current data base variable 
or result of an arithmetic opera- 
tion. 


269 



Not used. 




270 



Not used. 




271 

4 

DELET 

Integer variable 

used 

for 

delete 




entry in RANDAC. 




272 

None 

IDESC (20) 

An integer array 

used 

for 

temp or 


ary storage of the current data 
base variable descriptive informa- 
tion. 
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DILOG 

Locations 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 


Local 

Value Name 
.FALSE. STORE 


COMAND 


ICNSRT 


I RAN DC 


I RAN DF 


IRANDE 


NFCD 


FALSE 


LISTI 


FALSE LISTO 


Descriptions 

A logical variable set internally 
to .TRUE, if the option character 
1 E ' is invoked. If store is true, 
all incoming data from the file 
NMLIST will be stored in the data 
base. Otherwise, only previously 
defined data will be stored. 

Length of the descriptive informa- 
tion in IV and IDESC. 

Integer word containing the name 
of the current control directive 
(i.e., ADD , PRINT, ... etc. ) 

Integer word containing the rec- 
ord count of inserted records. 

Integer word containing the num- 
ber of collisions from RANDAC. 

Integer word containing the num- 
ber of RANDAC FIND requests. 

Integer word containing the num- 
ber of RANDAC entries. 

Next free control directive 
directory location. 

Logical variable set to true by 
option character 1 L'. If true, 
source input data will be listed. 

Logical variable set to true by 
the option character 'O'. If 
true, the source output file will 
be listed. 
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DILOG 

Locations 

Value 

Local 

Name 

Descriptions 

302 

None 

COMSAV - 

Integer word used for saving the 
value in COMMA when COMMA is be- 
ing used for storing alternate 
delimiter . 

303 


CONDIR 

Integer word containing the cur- 
rent control directive (i.e., 
CREATE, PRINT. . . ) . 

304 

FALSE 

PGDUMP 

Logical variable set to true by 
the option character ' D’. If 
true, card cracking information 
(IPAG array) will be printed. 

305 

FALSE 

SPLITR 

Logical variable set to true by 
the option character 'S'. If 
true, the list interrupt mode 
will be invoked. 

306 

* DBASE 1 

DDBASE 

Integer word containing the name 
of the requested data base (DBASE] 
left, justified and blank filled. 

307 

FALSE 

TRACER 

Logical variable set to true by 
the option character * T* . If 
true, trace printout option will ‘ 
be invoked. 

308 


DIRIN 

Name of the directory (data base) 
which is currently in core. 

309 

0 

FERRO R 

A counter for cumulating the num- 
ber of fatal errors which have 
occurred since the start of 
execution. 
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DILOG Local 

Locations Value ' Name 

310 IFILE 


311 FALSE INIT 

312-331 

332 0 ICDLG 


333 

334 

335 

336 

337 

338 6 LUO 

339 

340 FALSE ANALY 


341 1 


STCOLM 


Descriptions 

Integer word containing the name 
of the data base which is to be 
loaded, left justified and blank 
filled. 

Logical variable set by option 
character ' G' to specify a new 
data base file is being created. 

Not used. 

Integer variable for counting 
DLG input data. 

Unknown usage. 

Unknown usage. 

Not used. 

Not used. 

Not used. 

Logical unit number for the 
output file. 

Not used. 

Logical variable set by option 
character 'A*. If true, the cur- 
rent run analysis will be printed. 
This variable can also be set by 
the directive: 

'ON A’ or ’OFF A’ 

Start column for processing input 
records. Generally has a value 
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DILOG Local 

Locations Value Name 

342 

344 20 MAXFER 

345 

346 CRDFMT 

347-350 

351-352 

353 NWPAGE 

354 

355 *EOF ENDATA 


356 

357 IOCONT 
358-400 


Descriptions 

of one but set to 2 for process- 
ing namelist data. 

Not used. 

The maximum number of fatal 
errors which can occur before 
execution is terminated. 

Not used. 

An integer array containing the 
BCD definition of a card format. 

Not used. 

Not used. 

The number of words which define 
the width of a namelist record. 

Not used. 

Integer word containing the 
character string ’’''EOF 1 , left 
justified and blank filled, used 
to identify a user end-of-file. 

Not used. 

A counter used to accumulate the 
total number of input/output re- 
quests such as READ, WRITE, etc. 

Not used. 
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OVERLAY STRUCTURE 


TYPE CLRAFCM 
LIB k!DR K 

L I B LEOUR . ? MSOLDCRL. I B . 

SEE MR IN 
IN DLGDVR 

IN B I RLEK -IF? B YNCDR 
SEE R*.- aiRIN> 

IN INMDD -RSRCIMD 
S E b B o ? R 

J. N INI TL ? I N I TDM ? DPT I DM jDPINIT ? NUNN IT - CD I N I T 
S EE Bo * ( H ') 

IN ADDER 
SEG Eo * U 
IN RTTfiCH 
S E b Fo ? B 
IN CHANGE 
SEE Go -D 
IN IGNORE 
SEG Ho -.If 
IN COPY 
SEb I o <i li 

IN INITI2 
SEb Jo ?D 
IN CSF 
SEG l-> vD 
ir^ I DENT 
SEG L o - D 
IN DELETE 
SEG Mo - B 
IN DETACH 
SEG N o t D 
IN FDRMRT 
SEG Qo ? D 
IN INLINE 
SEG po ?D 
IN INSRT 
■ \ E b LI $■ h D 
IN QNRDFF 


IN CCDUHP 
' E b S' o « D 
IN SEftRCH 
;EG To sB 
IN TIME 
EG Uo j. D 
IN USE 
' E b V o i D 
IN UPDATE 
' E Li U o * D 
IN F'RTT 
END 
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RFCM STATUS OF OUTPUT ELEMENT “CLRAFCM 


HD DRESS LIMITS . 001000 

040000 

SEGMENT LOAD TABLE 
INDIRECT LOAD TABLE 
START I Nb ADDRESS 0£345£ 

A ct cr "7 M O 
U S-i— 

04 0 0 0 0 
04 0 1 34 

•13056 IBANK WORDS 
7139 DBANK WEIRDS 
040133 
04 04 0 0 

DEC I MAL 
DECIMAL 

SEGMENT MAIN 


00 i 000 0£43 16 

040401 0541 £4 

BCNTL COMNDN BLOCK > 



040401 041005 


SYSSoRL. I BS . NSWTCSCFDR69 

$ ( i ) 0 0 1 0 0 0 0 0 1 OS 4 

' c EXTERNAL REFERENCES : NT RES ? FMCTBS ? IOCOBS? WRBLKS 


SYS$*RL I E$ -NRUNDS. F0R6S 

S < I > 0 0 1 0 £ 5 0 0 1 1 0 6 S < £ > 04 1 0 0 6 04 1 017 

EXTERNAL REFERENCES 5 NTAES ? NS 1 1 $ > NHPFflS ? I DODDS? N FORKS ? WRITS 
NIGER* s MBS) BRAINS) NRBFS ? REUS? IDS? sTREbS ? PRINTS? h WALKS 


SYSS*RL I BS . HRBL..KS. FDR68 

:E(1) 001 1 07 001 131 

EXTERNAL REFERENCES : NTAES « UNITS? WAITS? AIDERS ? RS ? UPIiBRS ? 

ins 


S V S S * R L. I B S . N W E F S J S C 6 9 

$ < 1 > 0 0 1 1 3 E 0 0 1 3 3 7 S C £ 0 4 1 0 £ 0 0 4 1 0 3 7 

EXTERNAL REFERENCES " NTAB-S? NsllS? NHPPhs ? IDCuDS? NFcHKS ? 

ME FMOS ? FACETS? RBELKS s UNITS? UPBDAS ? WAITS ? BS1BLS? BRAINS? 
NBFbTS? NI'OERS ? NBFPLS ? NSWTCS? NR B FAS ? PUNCH* ? PNCHAS ? STRESS ? 
PRINTS? NUALKS? CLOSES ? WEFS ? IDS 

SYSSoRL I BS . NBBCV$cFnR64 

S < 1. > 0 0 1 3 4 0 0 0 i 4 65 $ < £‘> 04 j 04 0 04 1 1 0£ 

EXTERNAL REFERENCES: NC1UL0? NFBF'S ? NClULi 

S YSS * RL I BS . NF TVS. •-■FDR ■ 

$(|j 00146b 001510 


SYSS^RL IBS .NCNVTS.--FGR6S 

S< 1 > 0 0151 1 0 0 1 73£ S-:£ 

EXTERNAL REFERENCES: S TREES ? NSTSVS ? NSTATS ? 

NFT6LS? NCDGFS ■> NERCTS 


041 1 0 


NCDM3S 


041177 
NERCPS ? 


SYSS*RL IBS .NCLDSS-FDR6S 

S ( 1 > 0 0 1 7 3 3 0 0 £ 1 £ 3 S < £ > 0 4 1 £ 0 0 0 4 1 £ 3 0 

EXTERNAL REFERENCES: NTAES? NS11S? UNITS? CSFS ? I DUS? MBS? NWEFS 

WAITS? NREWS ? NRBFS ? STRESS ? NCEFS ? PRINTS? NWALKS ? NTESZS ? 

NIDERS ? US? IDS 
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$*RL I BS . N WBLKS.- FLIP68 

$ < 1 > 0 0 £ 1 £ 4 0 0 £ £ 3 5 

EXTERNAL REFERENCES : NT AES ? UN ITS? UfilTS? N I DERS ? US? UPBBfiS ? 

ins 

S*RL I B$ . NBSBLS.- F0R68 

S ■; 1 > 0 0 £ £ 3 & 0 0 £ £76 

E X TER H R L R EFEPE! •! C E 3 ° N T H B S ? M B S ? U HITS? N I □ F R S ? I □ U S ? U FT ) D H $ 
$*RLIB$ . NUPIihS- FDR6E; 

$ C 1 > 0 o ££77 0 0 £ 3 3 £ 

E X T E R N A L R E F E R E H C E S » NTH B $ ? i »J HIT S ? M B S 


S «■ R L I E S t N E F 0 0 S s F D R 


041 £31 04343i 


$*RL I BS . fi F T C H S F □ ft 6 9 

S <•; 1 > 0 0 £ 3 3 3 0 0 £ 6 1 5 S < £ > 0 4 3 4 3 3 0 4 3 4 4 6 

E X T E R N R L REFER EM C E S ■ NTH B S ? R I) E L K S ? h) R I T S ? N I □ E R S > 1 0 C □ E S ? 

N 3 F P L S ? N E F 6 T S ? N B F M 6 S * R S ? N F B V 1 $ ? HIDE R 8 R ? N E F R S S ? N F R □ N F $ ? M E $ ? 
UNITS? NFS? I DUS? FNCTBS ? UPEUAS ? STRESS s NS TATS ? NERCTS 

:S«RL I BS . N I N I HS.-FDR68 

S C 1 > 0 0 £ 6 1 6 0 0 3 0 0 6 S < £ > 0 4 3 4 4 7 0 4 3 4 ft £ 

EXTERNAL REFERENCES" NT MBS ? PfiCKTS ? NFRMS ? NR PCS ? NERUS ? NRBS s 
NKLNS? NKL£S ? NFRRS? NLLMS? NRTRSs NFTCBS? TEMPS? UNITS? NFTCHS ? 
NBC US j MI ICS? MCSPS ? NBIPRS? NEFCLS ? REfiDh'S 


' S * R L I B 3 . 1 H F D R $ 55 8 

:f; <; 3 > n 0 3 n 0 ? 0 0 3 3 6 7 
EXTERNAL REFERENCES ' READS ? CSFS 


S <!. 0 0 4 3 4 F 3 0 4 3 F 0 5 


;$*RL I E $ . M □ T I N $ F D R 6 S 

■+; < 1 :■ 0 0 3 8 ? 0 0 0 3 R 6 4 S ■" £ 0 4 :? 5 0 6 0 4 3 F i 1 

E X TERNRL P F. F E R E N C ES ’ NT fi B S , N F R J S y N R E C S ? N F P C $ ? N S T S V S ? F‘ A C K T S ? 
N E R U S ? N P I j S' ? N P R $ ? N K' L N S ? N K L £ S ? N F P fi S ? N OLM S ? N T E N I • $ ? MB F M G S ? 

N C 1 U L U ? N E F 6 T S ? N E F R S S s MBIT S ? N I □ E P 3 ? U P B D fi S ? B S .1. B L $ ? F N C T B S ? 
p N C H fi S • N E X I T S ? N C C C $ ? P P P * ? P R N 1 ' Fi S ? N C S P S ? T E M P S ? B R fi I N S ? U N I T S ? 
NBFRLS ? NCJUI0E3? CFE ? H I OSS 


•S*RL I BS „ NGUTS.-"FDR69 

$ t 0 0 3 6 6 5 0 0 F 0 4 1 $ £ > 0 4 3 5 1 £ 0 4 3 5 F 0 

E X T E R N fi L R E F E R E N C E S : N C S P S ? N F P J $ ? N F P C S ? 10 C G T > S ? N P C T $ ? NR 9 £ S ? 

N F: 9 3 S ? N R M 9 £ 3 ? N F !T 9 6 S ? MF H P $ ? N F R Z S ? N P 9 t $ ? N B I S ? N F N S IS? F t'1 T D P ? 
NFN3£S ? NFNS3S ? HI) ICS? NSLS ? NDDUTS ? NINES? NFGCS ? NGC9S ? NT IDS? 
HFPfiS? XFGRS j. NR91S ? HFMTS ? PRNTfiS ? PRINTS? PUNCH'S ? NVECS 
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S *RL I B$ . N I NPTSVFQR69 

(' i > n 05 04 £ 0 06050. S 

EXTERNAL REFERENCES • NNG903? NFGTS ? _ IGCGBS 

M p p\ Q ft g; , fi FRRS ? N F R Z $ ? H P W £ $ ? N P 9* 1 S ? S T R E b S ? 
NC0M3S ? NFTbLS ? MERC R 3 ? " NFC I $ ? NCNV9S » HSFS 
MBECVS ? NFRCS ? NFRHS ? NEFCLS ? NT CMS ? NEE I NS 
NFGCS? MRTR’B ? NFRCS? M CELTS ? READS ? NCSAS? 


<£*> 043551 043' 

, NR 92$ ? NR93S? 
NSTSVS ? NS T RTS 
, NFSGS ? NFEBS ? 

« NGC9S ? NPCTS? 
HVECS 


01 

NLLCS ? 

NDEF I $ ? 
NT 1 OS ? 


S ♦ R L I B $ » N F M T $ F □ R 6 9 

:j ; \ > ij ij ft 0 5 1 0 0 6 735 

EXTERNAL REFERENCES s HIRES ? NFRZ3 ? NFR23S 
H i D \ y :'£ ? N F N I □ 1 S ? NIG 3 ’•••' 3 ? N F H I □ 1 B $ ? N I □ 3 V R S 
N ft B 4 S i N ft B 2 3 ? N ft B 5 $ ? H ft £ 3 $ ? N REIS ? N ft B 6 $ ? 
MFCS*? NBBCVS? NHVCS ? NI'E I NS? NXVCS < NhVCS 
f-j PCH'E ? N V E C S 5 N I 0 2 S ? I Q C DCS? N C ft $ ? N C H H R 3 ? 


: j; r £ > 0 4 3 6 0 £ 0 4 3 6 5 b 

* NFMTRS ? NFTGLS ? 

, NCE I S ? NRB7S ? NRBOS ? 

S JPEG S ? ft STftT S ? N t R C R S ? 
? NFRGS ? HRTRS ? PRINTS? 
NSTSVS 


S*RL I ES . NF I NBS-FDR68 

$ c 1 > Q 0 6 726 0 0 7 0 7 5 S < 2 > 

E X TER N fit R E F E R E N C E S : N T ft E S > N S 1 1 S ? ID C □ B $ ? N E F R 

N E F M G S - RS * ID S ? IJ ft I T $ ? W S ? I □ W S ? N I D E R S ? N E R l ! S ? 
pft CRTS ? STRESS > NBTGDSj NSTRTS ? NERCTS 


!J43bO | r" U43 1 - ' li i’ 
SS? HE IP NS ? 
NTBS2S? UNITS? 


:$*RL I BS . M I GERS^r GR69 

EXTERNAL REFERENCE 
NCJNI 02 S ? N TENDS ? 


S < 1 > 0 0 7 0 7 b 0 0 7 2 b 5 S 0 2 > 0 4 3 7 3 0 U 4 4 0 b b . 

Ss NTftBS? ST REGS ? UNITS? HURTS? NLTES ? NSTftTS ? 
NS 1 1 S ? NRSFS ? NSfiGS? PRINTS? PRCKTS? NWFiLKS 


S+RL I BS . N F C H K $ F 0 R 6 9 


007266 010253 


EXTERNAL REFERENCES ' NTftBS ? HER US ? NTBSX 
PLS? BLS ? PRCKTS? I GOODS? ST PEGS ? NSTftTS? 
C S F S ? U ft I T S ? 1 1 1 □ E R S ? W S ? I □ W $ ? U P C D ft S ? _ E S 
I j ! p g |_ k „ N r 1 U L 0 ? N C 1 1 J L 1 ? P 2 L S ? B 2 O S ? E 1 D S ? 


S O c! O 0 4 4 0 6 7 U 4 4 2 4 2 
'£ i >4 ,3 ij <4 4 i~ 4 y44 3 1 4 

S ? UN I TS ? MB; TODS ? F I TENS 
P P I N T S ? N f } J ft L K S ? N S 1 1 S ? 

1 BLS ? MBS ? TEMPS? DPR INS 
FILS ? CLOSES? EXIT 


S^RL IBS. NTftBS 


i : 


044315 044354 


SS^RL I ES „ N I BUFS2F0R6S 


SO > 010254 01031 

E X T E R M ft L R E F E R E N C E S * i'i T ft £ S ? N H P F ft $ ? 
N I □ 2 V S ? N R 9 1 S ? F H S 1 S ? F H S 2 S ? MI N 1 1 S ? 
N F R H S ? N S T S V S ? N N 6 9 0 S 


NRSXS ? 
NFMTS ? 


ft 044355 044355 
J O C O D S ? N F C H K S s N I 0 2 S 
NKLMS ? NFRftS ? HRTR’S ? 


S S o P L I B S . P R E P R M b 


S i > 010314 01 1016 


EXTERNAL REFERENCES s PftRTBL ? SCRS ? EL I S ? 
P p v f , i □ 1 1 i :f. B i j S E S ? F ft C I L S ? C S F S ? P P I N T $ 


■t; ( 0 ) 0 4 4 3 5 6 044567 

RINFS? SELTS? PFULS ? 


ORIGINAL PAGE IS 
OF POOR QUALM1 
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$oRL IBS . PGSTPRS---54 

S < i > 0 1101? 0 1 1 065 $ < 0 > 04 457 0 0446 02 

E X T E R N H L REFER EH C E S ° P R R T B L ? C S P •£ ? F' R I H f S 

SoRLIBS .SUED 

t(l) 011066 011200 

EXTERNRL REFERENCES : HR ITS ? I DS ? I OHS 

SoRL I BS . SBF I -"SYS69 

S <! i > 0 1 1 2 0 1 0 11451 

EXTERNRL REFERENCES: HR ITS? IDS ? I OHS 

SoRLIBS J:.RUS--SVS69 
$oRL IBS „ NOBUFS ••"FDR63 

SO) 011452 0 1 151 8 

E X T E R N h L RE F E R E H C E S : f H H B S ? N H r' F H $ * H R S X C ■> I GLUTS •> N F C H K S ? HE PUS ? 
PRCKTS ? NIOERSfi? NTSTOSy HIDE' VS? NR91 S ? NBLNK'S ? FHS10S? FHSETiS, 
NOTH S ? M B S ? H F M T S ? M fi I T S 

SoRL IB'S . fi E R R 3 F □ R 6 9 

S 1 > 0 1 1 5 1 3 0 1 2 1 1 3 S C 2 '• 0 4 4 6 0 3 u 4 4 7 7 3 

EXTERNRL REFERENCES : PRINTS? HE EC ? ERBTS ? HSUS 

:$*RL I BS « H0SVriS.--FDR69 

S f 1 > 0 12114 0 1 2 3 5 6 S =“ 2 > 0 4 4 7 74 04 4 7 7 5 

E X T E R M Hi. R F F E R E N C ES ‘ H T H b S ? N C NT ? N HPF £ S ? H R P E ? D U 1 C H T « F H B E C 3 ? 

nchhrs, nhpfrs? iocnnsn mrsxs? prckts? ntstos? nigevs ■, nrris? 

NBLNKS ? FHS10S? FHS2 0S ? NFR.JS ? HP EC 3 ? MFPC3 ? NSTSV3 ? MIDIS ? HERDS? 
M P U S « h K L H S ? H E T F S ? N P R S ? N FPRS- ? Hr tl T £ ? F P C 0 0 - R R p H 

: S * RL IBS Hi h l p R S •- F □ F: 6 9 

S • 1 > 0 1 8 3 5 7 0 1 3 1 2 4 S t £ > U 44776 0 4 5 0 01 

E X T F R H RL RE F E F. El ICE S : H T f : B S > I D C 0 3 S ? I -1 H P F R $ - HP S X S? f 1 C V R I- S ? 

H T.i R S n Tj 3 , M F 1 ! -1 T> 3 ? HR IT S , HIDE R S •• ' H I Cl 1 V S ? NT G 8 V S - H 1 0 3 V 3 ? M I DIBS? 

HOTS? LIMITS? HPF LBS ? HBPFBLS ■ PS? I CHS? NBRNHS NHHPL't - HCHILO? 

N I □ 3 S ? H C S p S ? M I □ 2 S ? H E X I T :}: ? H S ? H R 9 1 3 < M T S T 0 3 ? H F P n S ? HBLH K 3 < 

FHS10S? FHS20S? HFR JS ? NR ECS ? NFPCS ? MSTSVS ? NKLNS ? NFMTS 


$*PL I BS . H I EPS -"FOR 69 

S < 1 > 0 1 3 1 25 0 1 3 3 0 6 

EXTERNRL REFERENCES ° NR93S ? HSUS 


S <. 2 M 4 5 f s U8 U 4 5 1 8 8 


■- S- vr L II- S- „ fi R B R S F D R‘ 6 9 

S 1 > 0 1 33 0 7 0 1 3 7 36 S < 2 > 0 45183 0 4 5 1 35 

EXTERHRL REFERENCES : HTRBS ? MNPFPS ? lOCni'S? NRSXS ? NCBRFS? 

NIiRSCDS: ? HF I MBS ? HR I T S ? H I HERS ? NIG .1 VS ? N 1 08VS: ? H I E3VS - H J □ 1 BS ' 

urns ? urn i ts ? hrel m ? NJjPFBL s ? hbrhhs ? nhiopl.3 < nc i ul o ? h i D3S ? 

Minas? NFBY1S? HFROHFS? STREGS? MB CHS ? HSTRTS ? HEFTTS? HS ? ID!., IS ? 
PS? HR91S? FHS1S? FHS2S ? MFRPiS ? HRECS ? MKLHS ? NFRRS ? HL.LMS ? H RTF'S ? 
NFHTS? NCSPS ? HI ICS 
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: : Y S $ ❖ R L I E $ . N B E F $ / F D R 6 9 

$ ( 1 > 0 1 3 737 0 144 7 4 $ '• £ > U 4 5 1 3 6 U 4 £ 3 

EXTERNAL REFERENCES: NTflBS > NS11S. IDCDDSs NFCHK* > NEPU* » HLlULU 

TEMPS’ . NC1UL1 , HFPKTS > NBTDDS > CSF* ,• I1FHFS , UNITS. NBFMbi. Ri> 

1 0 W 3 j MID E R $ « i.u 3 ? ST REG S ? P R I M T 3 y M W H L K $ 


SYSS*RLIBS . IDLS.^64 

■$(i) 014475 014543 

EXTERNAL REFERENCES : -SLT3 y LDfiDS 

MSC^LDCRL I £ « NERTRfiNS 

*f ; 1 > 014 5 4 4 0147 0 4 3 < £ > 0 4 5 £ 3 6 0 4 5 3 4 4 

EXTERNAL REFERENCES s ABORTS:. ERRS y EXITS y CSFS y SETCS y CD MBS y 
BATES? HERRS y FIELHS < PRINTS 


E X 4 £ — i 0 0 0 0 c W 0 R K . E. D F T S 1 

S < 1 > 0147 0 5 0 1473 £ 

$ <: 3 j DILDG 

EXTERNAL REFERENCES: NERR33 


E X 4 £ ■ - 0 0 0 0 £ * W 0 R K . R E fi £ C R 
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E i*. 4cl~ U I. ! I.. I f J c. W D R K . C 3 F - y D l_ G 


S C l > . 031103 031333 S C 0 > 055165 055313 

' JX3) DILOG . . SC £> BLANKSCOMMDN 

EXTERNAL REFERENCES: PAGE ? GET ? PUT ? NERTRN - NF'RT S> ? N I DcS ? 

NERR3S 

SEGMENT K>. 031103 031473 055165 055350 

HAS THE SAME STARTING ADDRESS AS SEGMENT D 


E X 4 3 - 0 0 0 0 3 * U O R K . I DENTcDLG 

i(l) 

031 1 03 03 1473 

SC 0 > 

055165 055350 

3 C 3 > 

D I LOG 

S C 3 > 

BLANKSCOMMON 



S C 4 •' 

CARDED 


EXTERNAL REFERENCES: PAGE ? DECIDE ? BCD DEC ? BCD I NT ? RAN DA C ? 

IVLESCj MOVER? SIRMOV? IVCALC ? NODUS? HIDES? NERR3S 


SEGMENT L-o 031103 031363 • 055165 055331 

HAS THE SAME STARTING ADDRESS AS SEGMENT D 


EX 4 3™ 0 0 0 0S*WDRK . DELETE. - IiL G 


1 > 

031 1 03 031363 

$ C 0 > 

055165 055321 

) 

CARDED 

JC3> 

BLANKSCOMMON 



$C4> 

DILOG 


E X T E R N A L REFEPE N C E S : PA G E ? R ft N D AC:? I V D E S C ? M □ V E R ? N W D U S ? N I □ 3 S 
NERR3S 


SEGMENT M* 031103 0311 30 055165 055177 

HAS THE SAME STARTING ADDRESS AS SEGMENT D 


E X 4 c ~ O U U 0 3 ♦ f >} Q R K „ D E T A U H D L G 

S C 1 > 0 3 1 1 0 3 0 3 1 1 3 0 S C 0 } 0 5 5 1 6 5 0551 7 7 

S < 3 > D I LOG S < 3 > BLANK SC DM MON 

EXTERNAL REFERENCES: NUDUS ? HIDES? HERE3S 

SEGMENT N+ 031103 031412 055165 055354 

HAS THE SAME STARTING ADDRESS AS SEGMENT D 


E X 43~ U 0 0 0 3 U OR K , F O R M ft 1 D L b 

$ C 1 > 0 3 1 1 0 3 0 3141 3 3 C 0 > 0 5 5 1 6- 5 0 55354 

$ C 3 > U N I T S S C 3 :< B LANK S C 0 MMON 

. SC5> DILOG S < 4 > BCNTL 

EXTERNAL REFERENCES: MOVER? PAbE ? STRIPE*? BCD I NT ? SfKMDV? DM AN 

N HOODS ? PGM OUT ? NF’PTS? NI03S? NIOIS? NI03S? N EPPS'S 

SEGMENT 031103 031120 055165 055177 

HAS THE SAME STARTING ADDRESS. AS SEGMENT D 
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03 1 1 £ 0 


EX 4c'- 0 0 0 03+WCIRK . I NL I NE---DLG 

3 < 1 
SC 3 

EXTERNAL REFERENCES s 


031103 031130 :{;C 0 Y 

HILDA . S C 3 ) 

nupus? Nines? nerrss 


055165 0551 ?? 
33 L AN K 3 C □ M M □ N 


S E G M E N T F<> 0 3 1 1 0 3 0 3 £ £ 6 5 * 0 551 6 5 n g 5 4 n 3 

HAS THE SANE STARTING A PER ESS AS SEGMENT P 


SYSSoRL I BS h HF I NRS.-TGRbA 


SCI) 

EXTERNAL REFERENCES : 

N I G 1 V 3 «. N I 0 £ V * ? N I 03 VS 
ME ROTS ? NBTS » NDPFDL3 ? 


0 3 1 1 0 3 0 3 1 5 3 0 $ C £ > 0 5 5 1 6 5 0 5 5 £ 5 0 

NTABS? NHF'FAS ? NRSXS ? If] CO PS 5 NFC HRS * HERE'S 
? NET CBS « HI DIBS? S TREES ? UNITS > N STATS ? 
NFBV’l S ? Nines-. NBFPLS? MR ITS. NIGER** 


* 


• N B A r i 1 0 S N N W D L 3 * N C 1 U L 0 ? N 1 0 3 $ 


EX42- 0 0 0 03<- YORK . READER 

S '• 1 > 0 3 1 5 3 1 0 3 1 6 3 3 $ C 0 > 0 5 5 £ 5 1 0 5 5 £ 6 5 

S < 3 > B I L D6 S C £ > BLANKSCOMNON 

EXTERNAL REFERENCES : EDFTST ? NR PAS ? NIOIS? N T D3S ? NREUS j NFRR3S 


BUFFER < CO MM ON BLOCK ) 



055366 055310 

E X 4 3 - 0 0 0 0 3 o NO R K . 1 N S R T ■- ' B L G 

$C1> 

0 3 1 6 3 4 0 3 3 3 6 5 

S C 0 > 

055311 055403 

SCS;:. 

BUFFER 

*<£> 

BLANKS COMMON 

S C 5 > 

CART! BP 

( 4 > 

HI LOG 


i- \ •_< n r 1 :£■ *4- jj j { .. u H 

E X T E R N A L REFEP'E N C E S : P A 6 E * D EC I BE s B C D B E C ? B CD I NT ? CREftTF ? 

R E A B B P ? F' 6 M D U 7 * l.«.i R I T C R ? N W B I ,J S . N I O 2 S ? ME R P 3 S 


SEGMENT Q* 031103 031313 055165 055313 

HAS THE SAME STARTING ADDRESS AS SEGMENT B 


FX43- 0 0 ft 03* YORK . ONPOFF •- BLG 

S C 1 > 031103 031313 

S C 0 ) 

055165 055313 

SC 3 > DPTBIR 

SC 3) 

BLANKSCOMNDM 

E X TER H A i L R E F E R E N C E 3 2 P R G E ? R A N B A C ■» N ! -j B U 

S ( 4 > 

PI LOG 

$5 NIDI 

$* Nines? NERR 

SEGMENT F<> 031 103 031 

734 

0551.65 055743 

HAS THE SAME STARTING ADDRESS AS 

SEGMENT 

D 

F X 4 3 - 0 0 0 0 3 0 1 -i O R K . S HELL 

SC 1 > 031 1 03 031343 

S < 0 ) 

055165 055315 


3 C c - 1 

BLANKSCOMNON 

EXTERNAL REFERENCES : NERR3S 
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E X 4 £ * 0 0 0 0 2 ♦ l.il 0 R l< . I) £ MR T 


3 < X > 0 3 J. 244 0 3 1 5 1 6 3 *; 0 > 0 5 5 £ 1 6 0 5 5 3 1 3 

$<3> BILOG ’ SC£*> BLANK 3: COMMON 

E X TERNhL R E F E R E N C E S j I M T B C D •> SHELL ? R fi N I? R C - I V D E S C , N M B U $ < HID £ $ ? 

HIDlSs MERR33 

E X 4c- 0 0 0 0 3 ♦ M D R K „ C C B IJ M P p L S 

3 '■ 1 > 0 3 151? 0 3 1 ? £ 4 $ <: 0 > 0 55314 0 5 5 7 4 £ 

3*-3> HI LOG $<£> BLANKSCCMMDN 

EXTERNAL REFERENCES ‘ BBMRT ? NMBUS ? NID33* NERR3S 

S E 6t1 EN T S * 0 3 1 1 0 3 0 3 1 1 £ o 0 5 5 1 6 5 0 55177 

HRS THE SftNE ‘STARTING REDRESS MS SEGMENT H 


0 0 0 0 3 * M 0 R K . S E A R C H B L G 




3 < 1 ;■ 

031103 031130 

3 n 

055165 055177 

3 < 3 > 

B J. LOG 

$ < £ > 

BLANK. 3COM MON 


EXTERNAL REFERENCES s NMDU3 ? HIDES , NERR3S 

S E G r*1 ENT To 0 3 1 1 0 3 0 3 1 1 £ 0 0 55165 0 5 5 1 7 7 

HRS THE SEME STARTING ABBRESS AS SEGMENT B 


E X 43-0 0 0 0 £ o M □ r k .TIME B L. G 


3; 

$<; 

EXTERNAL REFERENCES i 

■ SEGMENT No 
HAS THE SAME 


1 > 031 1 03 031 J £ 0 $< 

3 > DILDG 3; < 

NWDUSs N I LIE'S ? NERR33 

031.103 031 £34 
STARTING ABBRESS AS SEGM 


0> 055165 055177 

£ > ELANK3CDMM0N 


lb 


0553 1£ 


ENT B 


E X 4 3 - 0 0 0 0 3 * W O R f < . ij S E B L G 

$(1) 

031103 031334 

3 < 0 > 

055 1 65 

0553 1 

!f, i. . ,i 

SERRH 

$<£> 

BLANK 3 

COMMON 

‘j! l' J~r ’l 

DILOG 

3 4 > 

CARDED 



EXTERNAL REFERENCES: PAGE ? BEL DAB ? NPETS » Nl'083 ? NIG13? NERR33 

S E G M ENT V * 0 3 1 1 0 3 0 3 1157 0 5 5165 O 5 5 £ 1 4 

HAS THE SAME STARTING ABBRESS AS SEGMENT B 


E X 4 £ - 0 0 0 0 £ o M g R k . ij p p A r e B L G 

S 1 ;■ 0 3 1 .1 0 3 0 3 1 1 5?' 3 •*; 0 > 0 5 5 1 6 5 0 5 5314 

$ 3 ■> DILDG $C£> BLANK 3 COMMON 

E X T E R N A L R EFERE N C E S : P A G t .< B E L □ A B s N f.j Ii I J $ . N I D £ $ , N E R R 3 3 

S: E G M E N T W ♦ 0 3 1 1 0 3 0 31477 0 55165 0 5 5351 

HAS THE SAME STARTING ABBRESS AS SEGMENT B 
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ORIGINAL PAGE IS 
OP POOR QUALCT 



EK42- 0 0 0 02* WORK . PRTT 


$ < 1 > Q 3 1 1 l'i 3 0 3 147 ? $ <• 0 > 0 5 5 1 6 5 0 55351 

$<3> MS . $<£> ELRHKSCOMMDN 

EXTERNAL REFERENCES ’ NXThIj ? HI'EF$ » NPBRS .<• MINIS? HI 03 3 - NWIiftS » 
NPRTS 9 HE PR 3 S' 


I E ft N K TJ R R S . 1 f i T □ S C RLE: SO 0 W 0 R D S L E C I M ft L PE R D ft S H 

MR IN 9935 > 


r\o 

( ? 0 1 > 

fit o 


v* 

( 4 5 

U *> 

< 9 o > 

To 

<: i 4 > 

s* 

( 1 4 > 


( 4 0 £’ > 

Q<f 

7£ > 

Ro 

'■ 6 c ? ? 

no 

>: 3. 4 > 

Ho 

( £ 0 0 ) 

Mo 

T 4 

Lo 

1 3 3 > 

K * 

(. £48 > 

Jo 

l [«[{"{ *1 

1 + 

'• £3? > 

Ho 

( 1 4 > 

Ro 

< 171) 
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ORIGINAL PAGE IS 
OP POOR QUALITY 



PBftHK BRfiWfi 7 G SC RLE : 
MR IN <5972) 


i 5 0 ) 




24 > 


Fo C165> 
E+- < 1 4 ) 


< 504 ) 


100 WORDS' DECIMAL PER DASH 


fl«- <544> 

D<*- < 


W-o < 


LI $■ < 


i 1 > 


1 1 ) 


142) 
1 1 ) 


1 1 ) 


9 ) 


T* < 

S^ < 

Ro < 
Q «• < 

□ ^ < 
H + < 
Mo < 

L* < 
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;t 


1 1 > 


1 1 




J* 


I ♦ 


H^- 


ii<> 


F-^ 


E-^ 


Ev ( c'o 


I Nit I PEC T 

LORD TABLE 





CALLS ON 

THE FOLLOWING 

.ID RHP ENTRY 

POINTS IN 

INDIRECT 

LORD SEGMENTS ARE 

ROUTED V 

IR THESE I HD I RE 

_Ll LORD A DDK 

ESSES s TC 

INSURE SE 

GMENTS ARE LORDED 

RDDER 

04 0 1 34 

HDD Dr IE 

04 0 1 37 

ATTACH 

04 0 1 42 

BCD DEC 

04 0 I 4 5 

BCD I NT 

04 0 1 5 0 

BCPVAl. 

04 0 1 53 

C CHUMP 

04 0 1 56 

CD IN I T 

04 0 1 6 1 

CHRNCF 

04 0 l 64 

CHRHUH 

0 4 0 !. 67 

COPY 

U 4 0 1 7 S 

CSF 

04 0 1 75 

DEI NIT 

04 OP 0 0 

DBURT 

04 02 OS 

DEC BCD 

04 0206 

DECIDE 

04 OS 1 1 

DELETE 

04 02 1 4 

DETACH 

04 02 1 7 

FDRMRT 

04 OS PR 

U t T s- U .{■> 

04 Os 2 5 

I DENT 

04 023 0 

I CHORE 

04 ns S3 

INI TDM 

04 0236 

IN- TIE 

04 024 i 

INITL 

04 0S44 

INLINE 

040247 

IMMDD 

0252 

IN CRT 

04 OS 5 5 

INTBCD 

04 026 0 

1NTFLD 

04 0263 

I OPT 

U 4 U 2 E’ 6 

IVCRLC 

040271 

I VP ESC 

0 4 0 C- 1 4 

NR BUT 

04 US 7 7 

NUNN T. T 

04 03 02 

□ FF 

04 0 3 05 

ON 

04 03 l 0 

□PI MIT 

04 03 1 3 

□ FT ION 

04 02: j. 6 

PRTT 

04 03s 1 

READER 

04 0324 

P PLACE 

04 0327 

R SPEND 

04 0332 

SCALE 

04 0335 

SEARCH 

04 02:4 0 

SHELL 

ij 4 U 3 4 3 

STATIC V 

04 0346 

T I ME 

04 035 1 

UP DR IE 

04 0354 

USE 

U 4- u s' 5 7 

V ML IMG 

04 0362 

MR I TCP 

. 040365 

HP I J 

04 037 0 

y pr i 

04 0373 

KPRR 

U 4 U S’ 7 6 
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APPENDIX A - FLOW CHARTS 
OF SELECTED SUBROUTINES 



*** 


CONT. ON PG 2 


ADDER 

P£_J QE 


Al 








IF C TRACER) 



C0NT. ON PG 3 


ADOER 

PS_2L_ I2E 


A2 










> 15 


o 12 


CGNT. ON PG 4 



A3 









FORMAT CSH TYPE OF AS. 4H IS li) 

£ ' 

GO TO C 100.200.3Q.Q.t-530?p I TYP£ p 


Wi 


c ALPHA WORD INPUT, LOCATE IN DATA BASE. 

1 

L ' 

1 

QQ i 

CON T 



f 

INUE 



CONT. ON PG 5 


ADDER 

PG 4 OF _ 15_ 


A4 










on 



CGNT. 


ON PG 


ADDER 
PG 5 OF 


_L5_ 


A5 


/wWMNAL PAGE IS 






C0NT. ON PG 7 ADDER 

PG 6 OF. 15 


A6 





IF C IOPR.NE. BLANK) 






CGNT. ON PG 8 


ADDER 



















CONT. ON PG 10 


ADDER 

PG 9. ■OF 15. 


A9 









- 


A7 


1 


L 60. 




c * V ^ NQ T E ~1 N T E G £ R ARRAYS HAY NOT BE INITIALIZED By"n*VALUE 


v 

CONT. ON PG 11 ADDER 

PG 1Q__QE 


A10 














nnnnn 



IF C I TYPE. EQ. 3 ) 


CONT. ON PG 12 


ORIGINAL PAGE IS 
OF POOR QUAUM 










oo 



END OF EXPRESSION, CALL ADDGNE TO INSERT DATA BASE 
NAMES ANO/OR VALUES INTO THE DATA BASE. 



A12 














no 





























CALL ADDONE (BLANK, IPAGC1P+2). KOUNT. FIRST.' LAST) 



A15 













SUBROUTINE ANLSIS 


C*** PROCESS “A" OPTION. 


COMMON /DILOG/ IDILOGC 1 3 
EQUIVALENCE C IDILOGC 34). BLANK 3 
£ IDILOGC 383. ICOPY 3 
C IDILOGC 40). ICONT 3 
( IDrLGGC2523. ICNML 3 
( IDIL0GC253). ICNOB 3 
( IDIL0GC295). ICNSR'O 
C ID ILOGC2S63 . IRANDC3 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


EQUIVALENCE C 
EQUIVALENCE ( 
EQUIVALENCE C 
EQUIVALENCE C 
EQUIVALENCE C 
INTEGER BLANK 


IDILOGC 297). 
ID ILOGC 238 ) ► 
IDIL0G£3323 » 
IDILOGC 3383 ► 
IDILOGC 357 3 » 


IRANDF3 
IRANDE3 
ICDLG 3 
LUO 3 
IOCONT 3 


C*** 


WRITE CLUO. 1000) 


IMSLJl 


FORMAT (34H INPUT/OUTPUT PROCESSING BREAKDOWN 3 


WRITE CLUO. 10103 IOCONT. ICOPY. ICONT. ICNML. ICNDB. ICNSRT. ICDLG 


JULL0_i 


FORMAT ( 50H0 TOTAL SIREAD SOV/R I T NML 1ST DBASE INSRT DIALOG / 
917 ) 


WRITE (LUO. 1020) IRANDE. IRANDF. IRANDC 


1020 ^ 


FORMAT C33H0RANDGM ACCESS DIRECTORY ANALYSIS / 


CONT. 


"5 

ON PG 


ANLSIS 
PG. 1 OF_ 


A16 























A18 


ATTACH 

PG_1 EimL 







SUBROUTINE CC DUMP 



A19 



















I GO TO 2Qfl 


L = LD - IB + 1 
2 


LENDB = CLDB-LT*LD )/NWGRD 
ND3VAR = LENDB - CLDB-LFDB 3/NW0RD 
WRITE CLUO. 10093 


1 V V ^ * 

FORMAT C 1 H 1 

3SC2H* )) 

S . 

WRITE C LUO* 1 0003 DIR IN* LDB. 

LD* L* LT * LENDB. NDBVAR, NWORD | 

f 000 < 

7 -I 

FORMAT C IHO. 10H PRINT OF A 10* 
16H TOTAL LENGTH = . I6.6H WOf 
21H DIRECTORY LENGTH = 15* 
I3H ARE IN USE ( 15. 13H VORI 
2 1H DATA BASE LENGTH = 15* 
13H ARE IN USE ( 15* 15H WOR 
1 IX. 46HALPHEBET I ZED LIST IN 

3DS/ 

I OH ITEMS* 15. 

DS/ITEM) / 

10H ENTRIES* 15. 

DS/ENTRY) / 

GROUPS OF 100 FOLLOW // ) 

200 

3 - — ' " 

7 

CONTINUE 


WRITE (LUO. 1001) IC 

1001 -j 

! 


CGNT. ON PG 4 


CCDUMP 

PG 3 OF 1 


A21 





CALL DB V/RT CDBNAHE* KEY»NUSED3 



A22 





SUBROUTINE CDINIT 
COMMON /DIRECT/ IDIRECC 1) 
EQUIVALENCE C IDIRECC 111)* ICO ) 
COMMON /DIL06 / IDILOG(l) 
EQUIVALENCE (IDILGGC 34). BLANK ) 
EQUIVALENCE (IDILOGC 43). FIND ) 
EQUIVALENCE C IDILOGC219). INITAL) 
EQUIVALENCE C IDILGGC221 ). INSTAL) 


EQUIVALENCE C IDILOGC 249 ) . NCD ) 
EQUIVALENCE UDILQGt 299) . NFCD ) 
LOGICAL FOUND 

INTEGER ICDC1). FIND. BLANK 
INTEGER NAMENC47). IVALNC47) 

DATA NN /40/ _ 

I 


DATA CNAMENC I ). 1 = 1.40)/ 

"ADD" . "ATT" . "ATTACH" . "CHA" . “CHANGE” » " , " » COM . COMMEN . COP . 
’’COPY". "CR". "CREATE". “CSF". "ER". "DEF". "DEFINE". "DEL". "DELETE . 
"DET". *DETACH"?"FGR" . "FORMAT". " INL" ♦ " INLINE" . " INS". " INSERT". 
"ON". "OFF". "PR". "PRINT". "SEA". "SEARCH" . "T IME" . "USE" . "UPD" . 
"UPDATE". "PRO", "PROCES". "DBL". "DBLIST"/ 


DATA CIVALNCI). 1 = 1.40)/ 

1.2. 2. 3. 3, 4. 4. 4. 5, 5. 6. 6. 7, 7. 8. 8. 9. 9. 1 0, 1 0. it . 1 1 . 12. 12. 13, 13. 

15. 14. 16. 16, 17. 17. 18, 19. 20. 20.- 1.-1.21.21 

/ 

IT 



CALL RANDAC ( INI TAL. BLANK. 1 . I CD. NCD. FOUND. IVAL.4.NFCD) 



1 C . . 


LOAD THE DIRECTORY . . . 


• • • 


• » • f * 


» « • » 


< no looVi.wQ - - - - >2 

SZ- 


CALL RANDAC ( F I NO. NAMENC I ). 1. I CD. NCD, FOUND. IVAL.4.NFCD) 

— — — — — I “ " 


— 


cont; 


V 

ON PG 


CDINIT 
PG 1 OF 


A23 


ORIGINAL PAgk 
0F P0 °a QUALITO 






A24 


CDINIT 

PG 2 FINAL 






I 



1003 ^ 

FORMAT C " ENTER CHANGE") 


| INDX = PAGE C 3> 1> TT 


CALL DEC I DEC INDX, BCD » I TYP.NC) 


3 



CONT. ON PG 2 


CHANGE 

PG 1 OF 5. 


A25 








CONT. ON PG 3 









1 


CALL BCD INK BCD. NCDBV. VALD 


d3 


[CO T Q SQQl>Hik 



CONT. ON PG 4 


CHANGE 

PG 3 OF _ ,5. 


A27 






CDNT. ON PG 5 



A2 8 







CHANGE 

PG-5 FINAL 


A29 







A30 





SUBROUTINE CSF~[ 


C*** PROCESS "CSF 


DIRECTIVE. 


1 COMMON /DILOG/ IDILOGC 1 ) 



EQUIVALENCE 

C IDILOGC 3). 

BCD 

) 

EQUIVALENCE 

C IDILOGC 34). 

BLANK 

) 

EQUIVALENCE 

C IDILOGC 39). 

DELIM 

) 

EQUIVALENCE 

C IDILOGC 1849. 

IMAGE 

) 

EQUIVALENCE 

C IDIL0GC22O) . 

INRECL 

) 

EQUIVALENCE 

C ID ILOGC 265 ) * 

POINT 

) 

| IMPLICIT INTEGER CA-Z) 




D HENS I ON IMAGEC1) 
DATA HASTSP/"a , V 
LIM = PAGEC 1.U2J 
ruAC? - n 

ASSIGN 10 TO LEAP 

3 


BCDC 1 3 


< DO MjESEI inrecl > - - - >2 


CALL GETC IMAGE. i.K) 
c 





\ GO TO 


ASSIGN 20 TO LEAP 


CONT. ON PG 2 


CSF 

PG I OF 


A31 


























SUBROUTINE DELETE 
COMMON /CARDBD/ IPAGC1) 
EQUIVALENCE CIPAGC3), NDLOG) 


DELETES REQUESTED NAMECS) FROM DIRECTORY AND OATA BAS 


(COMMON IDATAU) 



EQUIVALENCE 

(ID. IDATA) 



COMMON /DILOG / IDILCGCl) 



EQUIVALENCE 

CIDILGGC 34), 

BLANK 

) 

EQUIVALENCE 

CIDILOGC 39). 

DELIM 

) 

EQUIVALENCE 

CIDILOGC 43), 

FIND 

) 

EQUIVALENCE 

C IDILOGC 223 ) , 

IV 

) 

EQUIVALENCE 

( ID ILOGC 243 ) , 

LD 

) 

~ 

EQUIVALENCE 

C ID ILOGC 246 ) . 

LK 

) 

EQUIVALENCE 

C IDIL0GC248) » 

LT 

) 

EQUIVALENCE 

C IDILOGC 259) , 

NF 

) 

EQUIVALENCE 

C IDILOGC 263) . 

NWORD 

) 

EQUIVALENCE 

C IDIL0GC27I ). 

DELET 

) 

EQUIVALENCE 

C IDILOGC 338) » 

LUO 

) 


INTEGER I VC 1 ) * BLANK. DEL IM. FIND 
INTEGER PAGE. DELET 




CONT. ON PG 2 


DELETE 

PG I OF _3 


A34 








A35 











DELETE 

PG 3 FINAL 














DETACH 

PG 1 FINAL 


A37 





CONT. CN PG 2 


A3 8 


DIALEK 

pg i -QE a 






COMMON /CARDBD/ IPAGC685) 


C*** 



INTEGER FIND. DIRIN 
INTEGER CONDIR. PAGE 
LOGICAL FOUND. MYEOF. EDIT. 
DATA IC/0/ 

PRINT 8887 


TRACER. 


ANALY. ATTN 


£332 


[FORMATC BEGIN PI ALEK“ ) 


.£8 87 - A 


FORMATC* BEGIN DLG“ ) 


DATA ID /5/ 


C*** 


[ 


CALL INITL 




CALL INI TDM 


±1 


CALL OPTION 


3 


CALL OP IN IT 


±1 


CALL NUMNIT 

uz 


=a 


CALL CD IN I T 

I 


a 



CONT. ON PG 3 


DIALEK 






A40 












J — A2 

<C^Tfc.not 

ATTm " 


►*■4 

O 

II 

o 

* 

1 c*** LOCATE CONTROL DIRECTIVE IN DIRECTORY 


_ 1 



CALL RANDACCFINDt CONDIR, 1 * ICD. NCD. FOUND. NODI R. 4. NFCDD 
!_ 





CALL INHOD 


a 


16 P „ TQ 4 Q 


CONT. ON PG 5 


DIALEK 

PGA OF, -6- 


A41 












A42 








5 

r 

[CALL ANLSIS | 

Ei 


7 


SL 


CALL UNLOADCDIRIN) 



1 


3 



£ 



CALL 

DBEND CIFIL) 

1 


r— 

PI 






CALL 

DONEC $9999) 



1 

pi 


PRINT 8888 


8888 ^ 

FORMAT ( " 0 DIALEK PROCESSING COMPLETE”) 


8888 ^ 

FORMAT C “ 0 DLG DONE") 


CALL 

EXIT 


l — 

9333 5 

7 

RETURN 0 


END 


DIALEK 

B5J5_ 


F INAL 


A4 3 




A44 





SUBROUTINE FORMAT 



CONT. ON PG 2 


FORMAT 

PG _1 — Q£ 1 


A4 5 






A46 













t> 4 



CALL MOVERCBLANKi 

cz 


0. TEMP. i. 14) 




C0NT. ON PG 4 


FORMAT 

EG— 3 QE 4. 


A47 







FORMAT 

PG 4 FINAL 


A48 










CGNT. ON PG 2 


IDENT 

PG I Q£ Z. 


A49 





A50 








A51 









CONT. ON PG 5 


IDENT 
PG 4 OP, 


A52 














CONT. ON PG 6 


A53 












c 


DEFINE NEW VARIABLES 



CONT. ON PG 7 IDENT 

Pfi 6 OF 7 


A54 











LQZQ h 

FORMAT C13H LEAVE IOENT ') 
RETURN 
END ] 


IDENT 

EG_7 El ML 


A55 







SUBROUTINE IGNORE 



CONT. ON PG 2 IGNORE 

PG I OF 6 


A56 












no 



A57 





non 



A58 













A59 








C0NT. ON PG 6 


IGNORE 
PG 5 OF_ 


A60 












[ END^ 


IGNORE 

PG 6 FINAL 


A61 











INI TDM 

PG 1 FINAL 


A62 






SUBROUTINE I NITIZ 

ZZ£ 

C*** PROCESS "CREATE ... " DIRECTIVE. 

4 ■ ~ 

COMMON IDATAU) 

EQUIVALENCE C ID* IDATA) 


, $ ■■■, 

| C*** I 

_3l_ 


[common /DILOG / IDILOGU) 



EQUIVALENCE 

CIDILOGC 34). 

BLANK 

) 

EQUIVALENCE 

( ID ILOGC 2 19 ) » 

INITAL) 

EQUIVALENCE 

C I D I LGGC 223 ) . 

IV 

) 

EQUIVALENCE 

( I D ILOGC 243 ) » 

LD 

) 

EQUIVALENCE 

C ID ILOGC 244 ) . 

LDB) 


EQUIVALENCE 

C I D ILOGC 246 ) . 

LK 

) 

EQUIVALENCE 

C ID ILOGC 248) . 

LT 

) 

£ 

EQUIVALENCE 

C ID ILOGC 259) * 

NF 

) 

EQUIVALENCE 

C ID ILOGC 245) » 

LFDB 

) 

EQUIVALENCE 

C ID ILOGC 256) . 

NCAR 

) 

EQUIVALENCE 

C IDIL0GC 257 ) » 

NCDBV 

) 

EQUIVALENCE 

C IDIL0GC263). 

NWGRD 

) 

equivalence 

C IDILG6C293). 

LENDES) 

EQUIVALENCE 

C I D I LOG C 306 ) • 

DDBASE) 

EQUIVALENCE 

C 1DILGGC307), 

TRACER) 

£ 

EQUIVALENCE 

C IDILGGC 308). 

DIRIN 

j 

EQUIVALENCE 

C IDILGGC 338). 

LUO 

U 


| c*** 



LOGICAL POUND. TRACER 

INTEGER DIRIN. DDBASE. BLANK. IVC1). PAGE 





CONT. ON PG 2 


INITIZ 
PG 1 OF 3 


A63 






A64 











INI T I Z 

PS 3- .FINAL 


A65 








CONT. ON PG 2 


INITL 

PG 1 OF 8 


A66 





CGNT. ON PG 3 INITL 

EQ-.2_.QE £ 


A67 





EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


C IDIL0GC3O7). 
( IDILOGC 308 5 . 
C ID ILQGC 309 ) » 
( IDIL0GC31 0)* 
C IDIL0GC3 I 1 ). 
C IDIL0GC312 )» 


TRACER) 
DIRIN ) 
FERR0R) 
IFILE ) 
INI T ) 
KEYWRD) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( IDIL0GC332). 
C IDIL0GC333)* 
C 10 IL0GC334 ) » 
C IDIL0GC335) . 
C IDILGGC336) . 
C IDIL0GC337 ) > 
C IDIL0GC338) » 
( IDILQGC339) » 


ICDLG ) 
M0DSAV) 
NAS0PF) 
NDIR ) 
OP ) 
0UTFIL3 
LUO ) 
PGMNAM) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


C IDILOGC 34 0 ) » 
C IDIL06C34 1 3 * 
C IDIL0GC342) * 
C IDIL0GC344). 
C ID IL0GC 345 3 » 
C IDIL0GC3463 » 
C I D IL0GC 35 1 3 » 
C ID IL0GC 352 3 » 


ANALY) 
STC0LM) 
C0NTFP) 
MAXFER 3 
TIMING) 
CRDFMT) 
CP5BIN) 
IDUM3 3 


EQUIVALENCE CIDIL 
EQUIVALENCE CIDIL 
EQUIVALENCE CIDIL 
EQUIVALENCE CIDIL 
EQUIVALENCE C IDIL 
EQUIVALENCE CIDIL 
INTEGER ENDATA 
INTEGER CRDFMT C 5 3 


C IDILOGC 353) » 
CIDILOG C 354 3 . 
C IDILOGC 355 3 . 

C IDILOGC 35G 3 . 

C IDILOGC 357 3 * 

C IDIL06C358). 


NWPAGE) 

NQUAL 

ENDATA) 

INSERT) 

IGCONT) 

IFIELD) 


INTEGER CONTFP 
INTEGER COMSAV. CONDIR 

INTEGER DDBASE. DIRIN. FERROR. KEYV/RDC10). MODSAV 

INTEGER OP. OUTFIL. PGMNAM. STC0LM 

LOGICAL INIT.CONTIN.EDIT.LISTI, ATTN 

LOGICAL L I STO. PGDUMP. TRACER. ANALY. SPL I TR 

INTEGER ALFE. ALFF. BLANK. DOLLAR. EQUAL. COMMA. PGS 

INTEGER DELIM. DBASE. POINT. RPAREN. BCDC 1 3 


INTEGER BCDNUMC I 3. IMAGEC1). ICHRC1). I VC i D , BCDLEN. VALUE 



. A68 





CONT. ON PG 5 INITL 

PG 4 OP __8_ 



A69 





CONT. ON PG 6 



>6 


INI TL 

PG 5 OF a 


A70 





IMA6EC I )= NULL 



1 00 £ 

CONTINUE 

£ — 

LD=DIRLEN 
LDB = L TOTAL 
LFDB = OIRWID * DIRLEN * 1 


NWORD 


LK=KEYLEN 
LPAREN=LP 
LT=DIRWID 
MAXINT=INTMAX 
LENEXP = A 


MXCHAR = NWORD * NCAR - CLENEXP-i) 
MYEOF=. FALSE. 

NAME=NULL 
NEG=MINUS 
NNUM= 15 
NOPR= I 0 
NCD=47 
NONAMS = 1 


CONT. ON PG 7 


INITL 

P.G-S- 





CGNT. ON PG 8 


INI TL 
PG 7 OF , 


A72 






INI TL 

PG 8 FINAL 


A73 







SUBROUTINE INLINE 

Y 

C*** PROCESS “INLINE ... ** DIRECT IVE. 

COMMON /DILOG/ IDILOGCI) 

EQUIVALENCE C IDILOGC 338) . LUO ) 

r— * , 

C*** 

r =3= 

[WRITE (LUO. I 0003 


I OQQ A 

FORMAT (34H INLINE DIRECTIVE NOT IMPLEMENTED ) 

—3- 

| C*** | 

J—SzL 

I RETURN - ! 


END 


A74 


INLINE 

P£_J 


FINAL 


ORIGINAL PAGE IS 
W POOR QUALITY ■' 











C0NT. ON PG 3 


INMOD 
PG 2 OF 


_A7 6 








Jill 







CCMAND=BLANK 


I SO TO 31 O' 


ORIGINAL PAGE IS 
OF POOR QUALIWi 


202 i 



I GO TO 700 



|<J- 

70D 


CONTINUE 
CONT. ON PG 5 


A" 












A80 






A81 










A82 








CONT. ON PG 4 


INSRT 



A83 






1 




CALL BCD DEC C BCD. NC. VALUE ) 
1 


3 


IVAL = VALUE 

3: 



I GO TO 61 
&- 


CALL BCD INT (BCD. NC. IVAL) 


=3 


I GO TO 70 

I <J 


611 


CONTINUE 



WRITE (LUO. 1000) NAME. NUMBER 



1000 < 

7 


FORMAT C IH 30X. 16HERR0R IN INSERT.. 21H THE FIRST RECORD ON A10/ 
1H . 30X. iOHCANNOT BE AIC.23H SET RECORD NUMBER TO i) 


IVAL 

= I 




CONT. ' ON PG 5 


INSRT 

PG 4 OF UL 


A84 










A85 











A86 










A87 










I GO TO 290 Z>^f§T : 




CGNT. ON PG 9 


A8 8 


INSRT 

PG 8 OF Id 


ORIGINAL PAGE IS 
OF POOR QUALITY 




I<H 


2 

| GO TO 








INSRT 

Pfi 10 FINAL 


A90 












A91 







A92 






ENTRY OFF 
OFF ING=. TRUE. 
0NING=. FALSE. 



CQNT. ON PG 2 CNRQFF 

QE Z 


A9 3 






0NROFF 

PG 2 FINAL 


A9 4 






CQNT. ON PG 2 OP INI T 

PG..1...J3E 2_ 

A95 





A96 








no 


| SUBROUTINE OPTION 


THIS ROUTINE IS TO SET TO .TRUE. OPTIONS IN THE 

DILOG COMMON BLOCK ACCORDING TO 0TIN LETTERS ON 

[C THE ENVOKING CARD. 



COMMON/OP TD I R/NOP» NFOP. ID0PC52) 
CGMMON/DILOG/IDILOGC I ) 

EQUIVALENCE CIDILOGC 34). BLANK ) 

EQUIVALENCE CIDILOGC 43). FIND ) 

EQUIVALENCE UDIL0GC219). INITAL ) 

EQUIVALENCE C IDILOGC 22 1 ) . INSTAL) 

LOGICAL FOUND. OPT 
INTEGER LETTERC 1 03. LOCC 1 0) 

6 

INTEGER BLANK. FIND 

DATA LETTER/IRA. IRB* IRC. IRE. IRM. 1RL. 1RO. 1RD. IRS. 1RT/ 
DATA LOC/340. 292. 36. 250. 3 1 1 . 300. 301 . 304. 305. 307/ 

DATA NOP/13/ 

LOGICAL IDILOG 

DEFINE OPT C I )=FLD( 35-C 1RZ- 1) . 1 . MASK3 .NE. 0 

^ " 

CALL RANDACC INI TAL. BLANK. 1 . IDOP. NOP. FOUND. I V.4.NFOP) 



OPTION 
PG 1 OF 2 


* 

CONT. ON PG 2 


A9 7 






IF( FOUND ) 


F 



OPTION 

EG_2 UM L 


A98 





SUBROUTINE PRTT t IPP. IT.MK. IDATA, IBUF* IV. IUNDAT) 


C INQTEC CALLING PARAMETERS) 


DIMENSION ITC 1). IDATAC l). IBUFC1) 
DIMENSION IUNDATC 1 ) 

DIMENSION IBFC7) 

COMMON/MS/NT. KEYWRD. NREC. LENGTH. INCLEN 
EQUIVALENCE CKW. IBFC3)) 

IOP=IPP 

M=MK 


C TEMPORARY DEFINIT0N OF IUN **********0*0*0* 0* 0*0*0* 


IRTN=0 


IUN— DISC UNIT DEDICATED TO MS STORAGE 
IOP —OPERATION CODE 

=5H( LEAR— TH IS IS USED AFTER A FILE HAS BEEN COMPLETED 
USING CODES 20.21.30.31. 

=5HCL0SE— THIS IS USED TO CLOSE THE LIBRARY SO THAT IT 
MAY BE PICKED UP BY A SUBSEQUENT JOB STEP 
= 1 0HPURGE--REMOVE THIS FILE FORM THE LIST OF RETRIEVABLE 
DATA FILES 


c 

= +N —WRITE 





c 

— N —READ 





c 

=10HTAPE INPUT 





c 

=10HTAPEOUTPUT 




INSTRUCTIONS 

c 

PERMANENT 

STORAGE 

OF 

MS DATA— SEE 

c 

BELOW 





c 

WRITE CODES 




STORE) 

c 

N= 1 0 DATA IS 

COMPLETE 

IN 

IDATACMATRIX 

5 


N=20 WRITE A PARTIAL F ILE--F I XED LENGTH RECORDS 
N=21 WRITE A PARTIAL F ILE— VAR I ABLE LENGTH RECORDS 
N=30 EXTEND A F ILE--F I XED LENGTH RECORDS 
N=31 EXTEND A F ILE--VAR I ABLE LENGTH RECORDS 
N— THE NUMBER OF WORDS IN THE DATA TITLE 

IT — AN ARRAY CONTAINING THE TITLE— IT MUST BE DIMENSIONED N+l 

M THE NUMBER OF WORDS IN THE DATA RECORD STORED IN IDATA 

IDATA— AN ARRAY CONTAINING THE DATA RECORD 







c IBUF —THE BUFFER TO USE FOR THIS FILE 

C NBUF —THE LENGTH OF THE BUFFER 

C - - - - PERMANENT STORAGE OF MS DATA 

C N=TAPE UNIT ON WHICK TO WRITE TAPE 

C IT= A WORKING ARRAY LARGE ENOUGH FOR THE LONGEST TITLE 

C IN THE STORED MS DATA 

C IDATA= A WORKING ARRAY LARGE ENOUGH TO ACCOMODATE THE LARGEST 

C BUFFER USED TO WRITE THE MS TAPE. 

£ 


NOTE— CLOSE MUST BE EXECUTED PRIOR TO WRITING A 
TAPE 

I 

IFLG=0 


C FIRST OPERATION --OPEN MS AND ESTABLISH INDEXES 

C THIS SECTION IS TEMPORARY AND WILL BE MOVED TO A NEW PLACE IN 

C THE GAC 

C IUNDAT ( l ) = IUN UNIT NUMBER 

C IUNDATC2) 

C TO 

C IUNDATC 12) KDX ARRAY 

C IUNDATC 13)=MDX 

3E 


IUNDATC l 4 )=KCR 
IUNDATC 15)=KFLG 
IUNDAT C 163 
TO 

IUNDAT CNREC+ 15) INDX ARRAY 


NOTE-- 

- INITIALIZE IUNDAT TO 
NT TO 3 
KEYWRD TO 2 

6 

C 

NREC TO 256 

C 

LENGTH TO + C 200 D 

c 

INCLEN TO 50 


INEW=0 

IUN= I UNDAT C 1 ) 
KCR^IUNDATC 14) 

? 


CONT. 


V 

ON PG 


PRTT 

PE-2. 


OF e 


A10 0 







CONT. ON PG 4 



A101 





3 




CONTINUE | 

^ 

K= IUNDATC l +2 ) „ . 

READC IUN"K)C IUNDATC 15+1). I=i.NREC) 

K=K 

KCR=1 

IUNDATC 143 = 1 

IUNDATC 153=0 



A1 


-wo 




CONTINUE 



CONT. ON PG 5 


PRTT 

P( L_4. 


A102 









A103 








KK=IUNDATCKCR+2) 

WRITEC IUN"KK ) C IUNDAT ( 15+JJ). JJ=1 »NREC) 
KK=KK 



A104 











A105 




















CONT. ON PG 2 


RSPOND 

PG 1 OF . 7_ 


AlO 7 

























Alll 










RSPGND 

PG 7 FINAL 


A1X3 







SEARCH 

PG_J F 1ML 


All 4 















FORMAT ( 13H ENTER UPDATE 3 


IF IL = PAGE (3* 1*23 


CONT. ON PG 2 


A116 















| END 


UPDATE 
PG 2 


A] 




SUBROUTINE USE 


C * * * PROCESS "USE " DIRECTIVE 


IMPLICIT INTEGER CA-Z) 

COMMON /SEARH/ INX. START, NONAMS, DBNAMSC 15) 
COMMON /CARDBD/ LENPAG. NcLMT. NDLOG 
COMMON /DiLOG/ IDILOG(l) 

EQUIVALENCE CIDILOGC 39), DELIM ) 

EQUIVALENCE C ID ILOGC 250) . EDIT ) 

EQUIVALENCE C IDILOGC 307) . TRACER ) 

LOGICAL TRACER, EDIT 



All 8 

















CONT. ON PG 3 USE 

re. 2 of a 


A119 










USE 

PS 3 FINAL 


A120 





